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

00001 subroutine read_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   open(1,file='rnspar_MHDfnc.dat',status='old')
00008   read(1,'(1p,2e14.6)') MHDpar_apsi,   MHDidx_p  ! For flow fnc Psi
00009   read(1,'(1p,2e14.6)') MHDpar_a,      MHDidx_k  ! For Lambda_phi
00010   read(1,'(1p,2e14.6)') MHDpar_charge, MHDidx_q  ! For At 
00011   read(1,'(1p,2e14.6)') MHDpar_Lc                ! For Lambda
00012   close(1)
00013 end subroutine read_parameter_integrability_fnc_MHD

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