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