Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/write_parameter_integrability_fnc

00001 subroutine write_parameter_integrability_fnc_MHD
00002   use integrability_fnc_MHD, only : MHDpar_apsi,   MHDidx_p, &
00003   &                                 MHDpar_a,      MHDidx_k, &
00004   &                                 MHDpar_charge, MHDidx_q, & 
00005   &                                 MHDpar_Lc
00006   implicit none
00007   character(len=28) dum
00008   character(len=50) char_50(4)
00009   open(1,file='rnspar_MHDfnc.dat',status='old')
00010   read(1,'(a28,a50)') dum, char_50(1)  ! For flow fnc Psi
00011   read(1,'(a28,a50)') dum, char_50(2)  ! For Lambda_phi
00012   read(1,'(a28,a50)') dum, char_50(3)  ! For At 
00013   read(1,'(a28,a50)') dum, char_50(4)  ! For Lambda
00014   close(1)
00015 !
00016   open(1,file='rnspar_MHDfnc.dat.las',status='unknown')
00017   write(1,'(1p,2e14.6,a50)') MHDpar_apsi,   MHDidx_p, char_50(1)
00018   write(1,'(1p,2e14.6,a50)') MHDpar_a,      MHDidx_k, char_50(2)
00019   write(1,'(1p,2e14.6,a50)') MHDpar_charge, MHDidx_q, char_50(3)
00020   write(1,'(1p,1e14.6,14x,a50)') MHDpar_Lc          , char_50(4)
00021   close(1)
00022 end subroutine write_parameter_integrability_fnc_MHD

/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/write_parameter_integrability_fnc_MHD.f90