Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_grid_parameter_to

00001 subroutine copy_grid_parameter_to_mpt(impt)
00002   use grid_parameter
00003   use grid_parameter_mpt
00004   implicit none
00005   integer :: i, impt
00006 !  
00007   i=0
00008   i=i+1; grid_param_int_(i,impt) = nrg 
00009   i=i+1; grid_param_int_(i,impt) = ntg
00010   i=i+1; grid_param_int_(i,impt) = npg
00011   i=i+1; grid_param_int_(i,impt) = nlg
00012   i=i+1; grid_param_int_(i,impt) = nrf
00013   i=i+1; grid_param_int_(i,impt) = ntf
00014   i=i+1; grid_param_int_(i,impt) = npf
00015   i=i+1; grid_param_int_(i,impt) = nlf
00016   i=i+1; grid_param_int_(i,impt) = nrf_deform
00017   i=i+1; grid_param_int_(i,impt) = nrgin
00018   i=i+1; grid_param_int_(i,impt) = ntgpolp
00019   i=i+1; grid_param_int_(i,impt) = ntgpolm
00020   i=i+1; grid_param_int_(i,impt) = ntgeq
00021   i=i+1; grid_param_int_(i,impt) = ntgxy
00022   i=i+1; grid_param_int_(i,impt) = npgxzp
00023   i=i+1; grid_param_int_(i,impt) = npgxzm
00024   i=i+1; grid_param_int_(i,impt) = npgyzp
00025   i=i+1; grid_param_int_(i,impt) = npgyzm
00026   i=i+1; grid_param_int_(i,impt) = ntfpolp
00027   i=i+1; grid_param_int_(i,impt) = ntfpolm
00028   i=i+1; grid_param_int_(i,impt) = ntfeq
00029   i=i+1; grid_param_int_(i,impt) = ntfxy
00030   i=i+1; grid_param_int_(i,impt) = npfxzp
00031   i=i+1; grid_param_int_(i,impt) = npfxzm
00032   i=i+1; grid_param_int_(i,impt) = npfyzp
00033   i=i+1; grid_param_int_(i,impt) = npfyzm
00034   i=i+1; grid_param_int_(i,impt) = iter_max
00035   i=i+1; grid_param_int_(i,impt) = num_sol_seq
00036   i=i+1; grid_param_int_(i,impt) = deform_par
00037 !
00038   i=0
00039   i=i+1; grid_param_char2_(i,impt) = indata_type
00040   i=i+1; grid_param_char2_(i,impt) = outdata_type
00041   i=i+1; grid_param_char2_(i,impt) = NS_shape
00042   i=i+1; grid_param_char2_(i,impt) = EQ_point
00043 !
00044   i=0
00045   i=i+1; grid_param_char1_(i,impt) = chrot
00046   i=i+1; grid_param_char1_(i,impt) = chgra
00047   i=i+1; grid_param_char1_(i,impt) = chope
00048   i=i+1; grid_param_char1_(i,impt) = sw_mass_iter
00049   i=i+1; grid_param_char1_(i,impt) = sw_art_deform
00050 !
00051   i=0
00052   i=i+1; grid_param_real_(i,impt) = rgin
00053   i=i+1; grid_param_real_(i,impt) = rgmid
00054   i=i+1; grid_param_real_(i,impt) = rgout
00055   i=i+1; grid_param_real_(i,impt) = ratio
00056   i=i+1; grid_param_real_(i,impt) = conv_gra
00057   i=i+1; grid_param_real_(i,impt) = conv_den
00058   i=i+1; grid_param_real_(i,impt) = conv_vep
00059   i=i+1; grid_param_real_(i,impt) = conv_ini
00060   i=i+1; grid_param_real_(i,impt) = conv0_gra
00061   i=i+1; grid_param_real_(i,impt) = conv0_den
00062   i=i+1; grid_param_real_(i,impt) = conv0_vep
00063   i=i+1; grid_param_real_(i,impt) = eps
00064   i=i+1; grid_param_real_(i,impt) = mass_eps
00065 !
00066   i=i+1; grid_param_real_(i,impt) = restmass_sph
00067   i=i+1; grid_param_real_(i,impt) = gravmass_sph
00068   i=i+1; grid_param_real_(i,impt) = MoverR_sph
00069   i=i+1; grid_param_real_(i,impt) = schwarz_radi_sph
00070 !
00071   i=0
00072   i=i+1; surf_param_int_(i,impt) = nrg_1         ! 1
00073   i=i+1; surf_param_int_(i,impt) = sw_sepa       ! 2
00074   i=i+1; surf_param_int_(i,impt) = sw_quant      ! 3
00075   i=i+1; surf_param_int_(i,impt) = sw_spin       ! 4
00076 !
00077   i=0
00078   i=i+1; surf_param_real_(i,impt) = r_surf       ! 1
00079   i=i+1; surf_param_real_(i,impt) = target_sepa  ! 2
00080   i=i+1; surf_param_real_(i,impt) = target_qt    ! 3
00081   i=i+1; surf_param_real_(i,impt) = target_sx    ! 4
00082   i=i+1; surf_param_real_(i,impt) = target_sy    ! 5
00083   i=i+1; surf_param_real_(i,impt) = target_sz    ! 6
00084 !
00085 end subroutine copy_grid_parameter_to_mpt
/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/copy_grid_parameter_to_mpt.f90
