00001 module interface_violation_gridpoint_HaC_CF_peos_spin 00002 implicit none 00003 interface 00004 subroutine violation_gridpoint_HaC_CF_peos_spin(HaC_vio,cobj) 00005 real(8), pointer :: HaC_vio(:,:,:) 00006 character(len=2), intent(in) :: cobj 00007 end subroutine violation_gridpoint_HaC_CF_peos_spin 00008 end interface 00009 end module interface_violation_gridpoint_HaC_CF_peos_spin