!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
***S/P PNTOZON
*

      SUBROUTINE PNTOZON 1
#include "impnone.cdk"
*
*
*Author
*          J.Mailhot RPN(September 1989)
*
*Revision
* 001      B. Bilodeau (April 1994) - New common block ozopnt
* 002      B. Bilodeau (Sept  1997) - Remove CDZPOT
*
*Object
*          to determine the position of pointers to the ozone table
*
*Arguments
*
**
*
*
#include "ozopnt.cdk"
*
*  CES DIMENSIONS CORRESPONDENT AUX CHAMPS SUIVANTS...
*
*     REAL FOZON(NLACL,NPCL),
*    %     CLAT(NLACL),PREF(NPCL)
*
*
*  ...D'OU LES POINTEURS
*
      FOZON=1
      CLAT=FOZON+NLACL*NPCL
      PREF=CLAT+NLACL
*
      RETURN
      END