00001 module interface_hydrostatic_eq_CF_peos_spin 00002 implicit none 00003 interface 00004 subroutine hydrostatic_eq_CF_peos_spin(emd,utf,vepxf,vepyf,vepzf) 00005 real(8), pointer :: emd(:,:,:), utf(:,:,:), vepxf(:,:,:), vepyf(:,:,:), vepzf(:,:,:) 00006 end subroutine hydrostatic_eq_CF_peos_spin 00007 end interface 00008 end module interface_hydrostatic_eq_CF_peos_spin