mojave% f77 calnevhp.for -o calnevhp -lV77
calnevhp.for:
 MAIN:
"calnevhp.for", line 46: Warning: ignoring unimplemented "readonly" specifier
"calnevhp.for", line 46: Warning: ignoring unimplemented "shared" specifier
	pts:
"calnevhp.for", line 339: Warning: ignoring unimplemented feature: %REF() with CHARACTER argument
	cline:
	calc:
	constn:
	outlin:
	pbnd:
	param:
	calif:
	extrem:
	spotc:
ld: Undefined symbol 
   _symbol_ 
   _plot_ 
   _number_ 
   _plots_ 
Compilation failed
mojave% 
***********DETAILS OF COMPILATION WARNINGS*********

    46        open (unit=15,file=infile,form='formatted',status='old',
    47       1 blank='zero',readonly,shared)
                                    ^
**** WAR  #227:  ignoring unimplemented "readonly" specifier
    47       1 blank='zero',readonly,shared)
                                           ^
**** WAR  #227:  ignoring unimplemented "shared" specifier
    48        open (unit=16,file='CALNEV.PNT',form='formatted',status='new')
    49        READ (15,100) IREAD,XGAP,ZPAPR,ZPINC,XFACT,YFACT,IFVERS,NOTEN,IW
                                                                    ^
**** WAR  #320:  variable "ifvers" set but never referenced
   109      6 READ (IFAKE,IFMT,ERR=99) DENT(N),YDEG,XDEG,ISYM(N)
                             ^
**** ERR  #317:  array "ifmt" referenced as format but set as integer*4 in
                 line #71
   131        CALL PLOTS (0,0,0)
                       ^
**** WAR  #337:  undefined subprogram "plots"
   143     11 if (noten .ne. 0) go to 13
            ^
**** WAR  #315:  label "11" declared but never used
   146        CALL PLOT(XP,0.2,3)
                      ^
**** WAR  #337:  undefined subprogram "plot"
   185        SUBROUTINE PTS(N,LTS,LTN,LNE,LNW,I,ZHT,XRIGHT,ZSIZE,IFPOST)
                                                          ^
**** WAR  #315:  variable "xright" declared but never used
   279        CALL NUMBER(XP,YP,ZHT,YS,ZROT,-1)
                        ^
**** WAR  #337:  undefined subprogram "number"
   339     12 CALL SYMBOL(XP,YP,ZSIZE,%REF(DENT(L)),ZROT,8)
                        ^
**** WAR  #337:  undefined subprogram "symbol"
   339     12 CALL SYMBOL(XP,YP,ZSIZE,%REF(DENT(L)),ZROT,8)
                                                 ^
**** WAR  #226:  ignoring unimplemented feature: %REF() with CHARACTER argument
   367        SUBROUTINE CLINE(I,MPTS,ZSTH,ZNTH,ZEAST,ZWEST,XRIGHT)
                               ^
**** WAR  #315:  variable "i" declared but never used
**** WAR  #315:  variable "xright" declared but never used
   446        DATA X1/39000,
   447       *        23698,39022,23690,39129,23717,39202,23767,39355,23819,   
                5
                                                                               
                ^
**** WAR  #420:  the symbols after 72 column are ignored
   826        CALL SPOTC(0.0,0.1,0.0,JPLUS,0.0,0.0,0.05)
                               ^
**** WAR  #346:  possible argument #2 in "spotc" call is modified 
                 See: "calnevhp.for" line #917
                                   ^
**** WAR  #346:  possible argument #3 in "spotc" call is modified 
                                             ^
**** WAR  #346:  possible argument #5 in "spotc" call is modified 
                 See: "calnevhp.for" line #917
   854        DATA X,Y,XMAX,XMIN/4*0.0/
                   ^
**** WAR  #320:  variable "x" set but never referenced
Lines:       952
Commons:       7
Routines:     11 (MAIN: 1; Subroutines: 10)
Messages:     21 (Errors: 1; Warnings: 20)