00001 00002 integer, parameter :: ILSI_PARAM=20 00003 00004 external ILSI_CG_Solver 00005 00006 interface 00007 00008 subroutine ILSI_Param_new(param) 00009 integer,intent(inout) :: param(ILSI_PARAM) 00010 end subroutine 00011 00012 end interface 00013
1.5.5