iraf.net

Dear Jeannette Barnes,
I passed your answer about continuum fitting to the interest person of my
Institute, and he will contact you further if necessary. He
actually wants to fit the continuum of a part of a stellar spectrum, not a
spectral line.
I have two different problems regarding IRAF:
one is on our VMS version of IRAF: I am not able to get the hardcopy of
any plot from the terminal screen on the printronix, deined as vptx:
the error is
cannot open file (tempdisk:[iraftmp]sgk3330a) (the number change for different
tasks like contour or prows ...)
after the error message IRAF goes back to pl> but does not accept any other
command and I have to get out by 'ctrl Y'.
We have also a LN03 laserprinter, but I do not know how to define it for
making hardcopies from IRAF. the other is on the fc utility to link imfort libraries. I wrote a simple
program to transform images from non-IRAF formats to IRAF format, which works
perfectly on the VMS machine but gives errors during the link on the
ULTRIX 4.1 Decstation. A number of routines :macnum macbuf proxy macrosare declared missing...
As the program was written to run from outside IRAF the parameters are called
in the usual FORTRAN way instead that with IMFORT routines.
Can you help me, please.
Thank you, Roberto Nesci PROGRAM CONIRAF
C *** CONVERTS IMAGES INTEGER*2 FROM FORMATTED FILE ONTO IRAF (OIF) FORMAT
INTEGER*2 IM1(1024,1024)
REAL*4 PIX(1024)
CHARACTER*79 COM1,COM2,COM3
CHARACTER*16 NOM
COMMON /HEAD/ COM1,COM2,COM3
C **
CHARACTER*80 IMAGE,NIMAGE,ERRMSG
INTEGER AXLEN(7),DTYPE
C
C *** READS IMAGE FROM DISK IN NON-IRAF FORMAT ***
C
5 TYPE 100
100 FORMAT('$ FILE NAME >')
ACCEPT 10,NOM
10 FORMAT(A16)
OPEN(UNIT=4,NAME=NOM,FORM='FORMATTED',TYPE='OLD',ERR=5)
C *** FORMATO IMAG **************************************
READ (4,101) NC,NR
READ(4,101,END=11,ERR=11) ((IM1(J,I),J=1,NC),I=1,NR)
READ(4,102,END=12,ERR=12)COM1,COM2,COM3
101 format(13i6)
102 format (a79)
CALL FOOTNOTE
GOTO 13
11 TYPE *,' ERROR DURING READ '
GOTO 16
12 TYPE *,' NO FOOTNOTE'
GOTO 16
16 CALL WAIT
13 CLOSE(UNIT=4)
C
C *** WRITES IN IRAF FORMAT **********************************
C
200 CONTINUE
TYPE *,'NCOL NRIG ',NC,NR
c *** get image name ************
c call clargc (1,image,ier)
c if(ier.ne.0) then
type *,' enter image name'
accept 301, nimage
301 format(a80)
c end if
c *** get image size ***
c call clargi (3,nc,ier)
c if (ier.ne.0) then
type *,' ncol'
accept *,nc
c end if
c call clargi (4,nr,ier)
c if (ier.ne.0) then
type *,' nrig'
accept *,nr
c end if
C ***
DTYPE =3
AXLEN(1)=NC
AXLEN(2)=NR
NAXIS=2
C *** CREATES IMAGE ***
CALL IMCREA (NIMAGE,AXLEN,NAXIS,DTYPE,IER)
IF (IER.NE.0) GOTO 91
C *** OPENS IMAGE ***
CALL IMOPEN (NIMAGE,3,IM,IER)
IF (IER.NE.0) GOTO 91
C *** LOADS IMAGE ONTO REAL MATRIX ***
DO 40 J=1,AXLEN(2)
DO 50 K=1,AXLEN(1)
PIX(K)=IM1(J,K)
IF (IER.NE.0) GOTO 91
50 CONTINUE
CALL IMPL2R (IM,PIX,J,IER)
IF (IER.NE.0) GOTO 91
40 CONTINUE
C *** CLOSES IMAGE ***
CALL IMCLOS (IM,IER)
IF (IER.NE.0) GOTO 91
STOP
C *** EXIT ON ERROR ***
91 CALL IMEMSG (IER,ERRMSG)
TYPE 201,ERRMSG
201 FORMAT (1X,'ERROR: ',A80)
STOP
END SUBROUTINE FOOTNOTE
COMMON /HEAD/ COM1,COM2,COM3
CHARACTER*79 COM1,COM2,COM3
TYPE 101, COM1,COM2,COM3
101 FORMAT(1X,A79)
RETURN
END SUBROUTINE WAIT
TYPE *,' press <RETURN> to continue'
ACCEPT *,IOP
RETURN
END