SUBROUTINE SETPIA(IPRINT,IFLAG)
      PARAMETER (NSPECI=46,NSPC1I=47, NTEMPS=14)
      REAL PIANN,PIACC,PIACN,PIAHN,T,W
      COMMON /PIAC/ PIANN(NSPECI,NTEMPS),PIACC(NSPECI,NTEMPS)
     & ,PIACN(NSPECI,NTEMPS),PIAHN(NSPECI,NTEMPS),TMIN,TMAX
      COMMON /SPECTI/ BWNI(NSPC1I),WNOI(NSPECI),DWNI(NSPECI)
     &           ,WLNI(NSPECI)
      DIMENSION T(NTEMPS),W(NSPECI)
      DATA TMAX,TMIN/190.,60./
      DO 11 K=1,NSPECI
      DO 11 NT=1,NTEMPS
      PIANN(K,NT)=0.0
      PIACC(K,NT)=0.0
      PIACN(K,NT)=0.0
      PIAHN(K,NT)=0.0
 11   CONTINUE
      NWAVES=NSPECI
      DO 99 INU=1,NSPECI
      W(INU)=WNOI(INU)
      IF (WNOI(INU) .LT. 1000.) GOTO 99
      NWAVES=INU-1
      GO TO 991
 99   CONTINUE
 991  CONTINUE
      DT=(TMAX-TMIN)/(NTEMPS-1)
      DO 12 I=1,NTEMPS
      T(I)=TMIN + (I-1)*DT
 12   CONTINUE
      CALL REGIS (W,NSPECI,NWAVES,T,NTEMPS,NTEMPS,
     &  PIANN,PIACC,PIACN,PIAHN)
      RETURN
CC TO BE DELETED...
 1234 NT=NTEMPS
      NNU=NSPECI
      WRITE(6,101)
101   FORMAT(/55X,'N2-N2 ABSORPTION'//)
      WRITE(6,100) (T(IT),IT=1,NT)
100   FORMAT(2X,'NU\T',13F9.0/)
      DO 3 INU=1,NNU
3     WRITE(6,110) WNOI(INU),(PIANN(INU,IT),IT=1,NT)
      WRITE(6,103)
103   FORMAT(/55X,'CH4-CH4 ABSORPTION'//)
      WRITE(6,100) (T(IT),IT=1,NT)
      DO 5 INU=1,NNU
5     WRITE(6,110) WNOI(INU),(PIACC(INU,IT),IT=1,NT)
      WRITE(6,105)
105   FORMAT(/50X,'N2-CH4 + CH4-N2 ABSORPTION'//)
      DO 7 INU=1,NNU
7     WRITE(6,110) WNOI(INU),(PIACN(INU,IT),IT=1,NT)
      WRITE(6,102)
102   FORMAT(/55X,'N2-H2 + H2-N2 ABSORPTION'//)
      WRITE(6,100) (T(IT),IT=1,NT)
      DO 4 INU=1,NNU
4     WRITE(6,110) WNOI(INU),(PIAHN(INU,IT),IT=1,NT)
110   FORMAT(1X,F5.0,2X,13(1PD9.2))
      RETURN
      END