00001 module interface_hydrostatic_eq 00002 implicit none 00003 interface 00004 subroutine hydrostatic_eq(emd) 00005 real(8), pointer :: emd(:,:,:) 00006 end subroutine hydrostatic_eq 00007 end interface 00008 end module interface_hydrostatic_eq