 
      CALL SEQUENCE...
       calmap  DATAIN MOUT FOUT INPUT OUTPUT [-lx VAL1 -ly VAL2 -d60  VAL3
                                               -i VAL4  -j VAL5 -dgrw VAL6]
 
 
      DESCRIPTION...
       calmap - CALCUL LES FACTEURS MAPSCALE ET DE CORIOLIS
 
      AUTHORS  - SANDRA TURNER, BERTRAND DENIS, SEBASTIEN BINER, JUL 08/93
      LAST REVISION: $Header: /data/armnraid1/cvs/RMNLIB/utils/rdiag/lspgm/calmap.ptn,v 4.8 2008/05/03 21:06:30 dugas Exp $     
           
 
      PURPOSE - CALCUL DU FACTEUR D'ECHELLE HORIZONTAL STEREOGRAPHIQUE
                POLAIRE ET DU FACTEUR DE CORIOLIS POUR CHACUN DES
                POINTS DE LA GRILLE A PARTIR DE L'INFORMATION DU
                FICHIER DATA ATTACHE A CETTE DERNIERE
 
 
      INPUT FILE...
         DATAIN = PARAMETRE DE GRILLE DU RCM
 
      OUTPUT FILE...
         MOUT = FACTEUR D'ECHELLE
         FOUT = PARAMETRE DE CORIOLIS
 
 
      PARAMETERS...
 
        NI  (lx) = NOMBRE DE POINTS DE GRILLE SELON X
        NJ  (ly) = NOMBRE DE POINTS DE GRILLE SELON Y
        PII (i)  = NOMBRE DE POINTS DE GRILLE SELON X
                   ENTRE L'ORIGINE ET LE POLE
        PJJ (j)  = NOMBRE DE POINTS DE GRILLE SELON Y
                   ENTRE L'ORIGINE ET LE POLE
        D60      = LONGUEUR DE LA MAILLE VRAIE A 60 DEGRES DE LATITUDE
        DGRW     = ORIENTATION P/R AU MERIDIEN DE GRENWITCH (DEGRES)
        NHEM     = HEMISPHERE (0,1=NORD,2=SUD)
 
        NOTES:  1) LE PARAMETRE DGRW N'EST UTILISE QU'AVEC LES FICHIERS SQI
                2) IL EST IMPORTANT DE SAVOIR QUE TOUS CES PARAMETRES SONT
                   FACULTATIFS SI LE FICHIER DATAIN EXISTE DEJA:
                   A) SI CELUI-CI EST UN FICHIER CCC, LES VALEURS
                      SONT ALORS LUES DE DATAIN(1), DATAIN(2), DATAIN(4),
                      DATAIN(5), DATAIN(6) ET DATAIN(12), RESPECTIVEMENT.
                   B) PAR CONTRE, SI DATAIN EST UN FICHIER SQI, L'INFORMATION
                      EST RECUPEREE DANS LA LISTE DES DESCRIPTEURS INTERNES
                      DU PREMIER ENREGISTREMENT DU FICHIER.
 
        >>>>>  DANS LES CAS A) ET B), LE PROGRAMME NE LIRA RIEN D'AUTRES <<<<<
               
        READ(5,5011) NI,NJ,PII,PJJ,D60,NHEM,DGRW
 5011   FORMAT(10X,2I5,3F10.1,I5,E10.0)
 
 
C     EXEMPLE DE CARTE D'ENTRE...
 
 CALMAP     121  121       63.      175.    45000.    1      270.
 
         0123456789012345678901234567890123456789012345678901234567890
         1         2         3         4         5         6         7
 
 
      EXIT CONDITIONS...
        0 NO PROBLEMS
        1 PROBLEM READING THE DIRECTIVE CARD
        2 NI,NJ,D60 OR DGRW INCORRECTLY SPECIFIED
 
