diff options
Diffstat (limited to 'Ganlib/src/DRVMO1.f')
| -rw-r--r-- | Ganlib/src/DRVMO1.f | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/Ganlib/src/DRVMO1.f b/Ganlib/src/DRVMO1.f new file mode 100644 index 0000000..dd67f89 --- /dev/null +++ b/Ganlib/src/DRVMO1.f @@ -0,0 +1,47 @@ +*DECK DRVMO1 + SUBROUTINE DRVMO1(NENTRY,HENTRY,IENTRY,JENTRY,KENTRY) +* +*----------------------------------------------------------------------- +* +*Purpose: +* dummy call to be replaced by a user-specific module. +* +*Copyright: +* Copyright (C) 2002 Ecole Polytechnique de Montreal +* This library is free software; you can redistribute it and/or +* modify it under the terms of the GNU Lesser General Public +* License as published by the Free Software Foundation; either +* version 2.1 of the License, or (at your option) any later version. +* +*Author(s): A. Hebert +* +*Parameters: input/output +* NENTRY number of LCM objects or files used by the operator. +* HENTRY name of each LCM object or file: +* IENTRY type of each LCM object or file: +* =1 LCM memory object; =2 XSM file; =3 sequential binary file; +* =4 sequential ascii file. +* JENTRY access of each LCM object or file: +* =0 the LCM object or file is created; +* =1 the LCM object or file is open for modifications; +* =2 the LCM object or file is open in read-only mode. +* KENTRY LCM object or file unit address. +* +*----------------------------------------------------------------------- +* + USE GANLIB +*---- +* SUBROUTINE ARGUMENTS +*---- + INTEGER NENTRY + CHARACTER HENTRY(NENTRY)*12 + INTEGER IENTRY(NENTRY),JENTRY(NENTRY) + TYPE(C_PTR) KENTRY(NENTRY) +* + WRITE(6,*) 'DRVMO1: USER-SPECIFIC MODULE.' + DO I=1,NENTRY + WRITE(6,*) HENTRY(I),IENTRY(I),JENTRY(I) + IF(IENTRY(I).LE.2) CALL LCMLIB(KENTRY(I)) + ENDDO + RETURN + END |