/home/uryu/Cocal_svn_checkinout/Cocal/code/Module_interface/interface_calc_surface.f90
Go to the documentation of this file.00001 module interface_calc_surface 00002 implicit none 00003 interface 00004 subroutine calc_surface(rsnew,emd) 00005 real(8), pointer :: emd(:,:,:) 00006 real(8), pointer :: rsnew(:,:) 00007 end subroutine calc_surface 00008 end interface 00009 end module interface_calc_surface
