00001 module interface_calc_integrability_modify_At 00002 implicit none 00003 interface 00004 subroutine calc_integrability_modify_At(fnc,supp) 00005 real(8), pointer :: fnc(:,:,:) 00006 character(len=2), intent(in) :: supp 00007 end subroutine calc_integrability_modify_At 00008 end interface 00009 end module interface_calc_integrability_modify_At