/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/allocate_BNS_iter_quantities.f90
Go to the documentation of this file.00001 subroutine allocate_BNS_iter_quantities(niq) 00002 use phys_constant, only : long 00003 use def_iter_quantities 00004 use make_array_1d 00005 implicit none 00006 integer, intent(in) :: niq 00007 ! 00008 call alloc_array1d(msec_x_oold,1,niq) 00009 call alloc_array1d(msec_x_old ,1,niq) 00010 call alloc_array1d(msec_f_oold,1,niq) 00011 call alloc_array1d(msec_f_old ,1,niq) 00012 ! 00013 end subroutine allocate_BNS_iter_quantities
