/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/read_parameter_drot.f90
Go to the documentation of this file.00001 subroutine read_parameter_drot 00002 use def_matter_parameter 00003 implicit none 00004 open(1,file='rnspar_drot.dat',status='old') 00005 read(1,'(2(2x,a2))') ROT_LAW 00006 read(1,'(1p,2e14.6)') index_DR, A2DR 00007 close(1) 00008 end subroutine read_parameter_drot
