File: outrep.F

package info (click to toggle)
emoslib 000382%2Bdfsg-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 49,276 kB
  • sloc: fortran: 90,253; ansic: 26,730; makefile: 417; sh: 388; f90: 276
file content (33 lines) | stat: -rwxr-xr-x 664 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
C Copyright 1981-2007 ECMWF
C 
C Licensed under the GNU Lesser General Public License which
C incorporates the terms and conditions of version 3 of the GNU
C General Public License.
C See LICENSE and gpl-3.0.txt for details.
C

      INTEGER FUNCTION OUTREP()
C
C---->
C*****OUTREP*
C
C     PURPOSE
C     -------
C
C     LNOREPR      - Flag to say whether or not user specified NOREPR 

#include "parim.h"
#include "nifld.common"
#include "nofld.common"

      OUTREP = 1

      IF(LNOREPR) OUTREP = 0

      IF( OUTREP.EQ.1 ) THEN
        CALL INTLOG(JP_DEBUG,
     X 'OUTREP: Output Representation is Not specified',JPQUIET)
      ENDIF
C
      RETURN
      END