nt/cre 1 '' 8 ! ! s sb at am err dec rat sigrat
nt/read 1 acc.dat

appl comis quit
        REAL FUNCTION A
        REAL s, nb, at, am, err, dec, rat, sigrat
        Logical         CHAIN
        CHARACTER*128   CFILE
        COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
        COMMON /PAWCHC/ CFILE
        COMMON/PAWIDN/IDNEVT,OBS(13),
        s, sb, at, am, err, dec, rat, sigrat
        real X,Y,XERR
        dimension xx(2),yy(2)
        X=at
        Y=am
        XERR=err
        XX(1) = X-XERR
        XX(2) = X+XERR
        YY(1) = Y
        YY(2) = Y
        CALL IPL(2,XX,YY)
        END
quit

nt/plot 1.am%at
nt/loop 1 A *A is the name of the function you're calling