src/bap/makefile-alpha

@@ -3,9 +3,9 @@
 
 # This makefile generates the following staden programs which
 # run under xterm (normal, `N') and those which run directly under X.
-NPROGS=      mep  nip   bap  sap  sip   splitp1 splitp2 splitp3 sethelp
+NPROGS=      mep  nip   pip   bap  sap  sip   splitp1 splitp2 splitp3 sethelp convert_project
-LPROGS=           nipl     
+LPROGS=           nipl  pip             sipl
-XPROGS=     xmep xnip  xbap xsap xsip
+XPROGS=     xmep xnip  xpip  xbap xsap xsip
 PROGS= $(NPROGS) $(LPROGS) $(XPROGS)
 
 
@@ -43,7 +43,7 @@ INCLUDES= -I$(SRC) -I$(STADENSRC) -I$(TEDSRC) -I$(OSPSRC) -I$(MISCSRC)
 CC= cc
 CFLAGS= -g $(INCLUDES)
 F77= gfortran
-FFLAGS= -g -fdec -std=legacy -C
+FFLAGS= -g -C
 
 #FLIBS= -lfor -lUfor  -lots -lFutil
 FLIBS = -lm -lutil  
@@ -53,7 +53,7 @@ XLFLAGS= $(XLIBS) $(FLIBS)
 
 LD = gfortran
 XLD = cc
-LDFLAGS = -g -fdec -std=legacy
+LDFLAGS = -g
 
 #
 # Avoid compilation of objects in remote directories
@@ -76,7 +76,7 @@ SEQLIB=\
 #
 CCORE=\
 	$(STADENBIN)/postscript.o\
-	$(TEDBIN)/Graph.o\
+	$(STADENBIN)/Graph.o\
 	$(STADENBIN)/plotLog.o\
 	$(STADENBIN)/help.o\
 	$(STADENBIN)/dialogues.o\
@@ -101,7 +101,7 @@ COBJS2=\
 #
 COMMONOBJSB=\
 	$(STADENBIN)/fmain.o\
-	$(STADENBIN)/seeme-aix.o\
+	$(STADENBIN)/seeme-dec.o\
 	$(STADENBIN)/nxspec.o\
 	$(STADENBIN)/userface.o\
 	$(STADENBIN)/userfacecom.o\
@@ -118,13 +118,13 @@ SCOMMONOBJS=\
 	$(COMMONOBJSB)
 
 XCOMMONOBJS=\
-	$(STADENBIN)/seeme-aix.o\
+	$(STADENBIN)/seeme-dec.o\
 	$(STADENBIN)/xspec.o\
 	$(STADENBIN)/subs89.a\
 	$(COBJS)
 
 XCOMMONOBJS2=\
-	$(STADENBIN)/seeme-aix.o\
+	$(STADENBIN)/seeme-dec.o\
 	$(STADENBIN)/xspec.o\
 	$(STADENBIN)/subs89.a\
 	$(COBJS2)
@@ -562,9 +562,9 @@ splitp3: $(SPLITP3OBJS)
 #	rm -r $$TMPDIR
 
 
-#%.a: $(SRC)/%.f
+%.a: $(SRC)/%.f
-#	$(F77) $(FFLAGS) -c *.f; 
+	$(F77) $(FFLAGS) -c *.f; 
-#	ar rcv $$BINDIR/$@ *.o; 
+	ar rcv $$BINDIR/$@ *.o; 
 
 
 

src/staden/gen_a.sh

@@ -1,19 +0,0 @@
-#!/bin/bash
-#
-for fortran in $(ls *.f)
-do 
-  mkdir -p ${fortran%??}
-  cp $fortran ${fortran%??}
-
-  cd ${fortran%??}
-  fsplit ${fortran}
-  rm ${fortran}
-
-  gfortran  -g -fdec -std=legacy -C -c *.f
-  ar rcv ${fortran%??}.a *.o
-  ranlib ${fortran%??}.a
-
-  cd ..
-  cp ${fortran%??}/*.a .
-  rm -rf ${fortran%??}
-done

src/staden/makefile-alpha

@@ -28,11 +28,10 @@ INCLUDES= -I$(SRC) -I$(TEDSRC) -I$(MISCSRC)
 CC= cc
 CFLAGS= -g $(INCLUDES)
 F77= gfortran
-FFLAGS= -g -fdec -std=legacy -C
+FFLAGS= -g -fdec -C
 
-FLIBS = -lutil -lm
+FLIBS= -lfor -lutil -lUfor -lots -lFutil -lm -lfor -lutil -lUfor -lots -lFutil
-#FLIBS= -lfor -lutil -lUfor -lots -lFutil -lm
+XLIBS= -lXaw -lXt -lXmu -lXext -lX11 -ldnet_stub
-XLIBS= -lXaw -lXt -lXmu -lXext -lX11 
 LFLAGS= $(FLIBS)
 XLFLAGS= $(FLIBS) $(XLIBS) 
 
@@ -79,7 +78,7 @@ XDAPCOBJS=\
 #
 COMMONOBJSB=\
 	fmain.o\
-	seeme-aix.o\
+	seeme-dec.o\
 	nxspec.o\
 	userface.o\
 	userfacecom.o\
@@ -96,13 +95,13 @@ SCOMMONOBJS=\
 	$(COMMONOBJSB)
 
 XCOMMONOBJS=\
-	seeme-aix.o\
+	seeme-dec.o\
 	xspec.o\
 	subs89.a\
 	$(COBJS)
 
 XDAPCOMMONOBJS=\
-	seeme-aix.o\
+	seeme-dec.o\
 	xspec.o\
 	subs89.a\
 	$(XDAPCOBJS)
@@ -550,34 +549,29 @@ vep: $(VEPOBJS)
 # avoid filling up the (small on this machine) /tmp directory
 # with compiler debugging information.
 #
-%.a: $(SRC)/%.f
+#%.a:	$(SRC)/%.f
-	sh gen_a.sh
-
 #	BINDIR=`pwd`; \
 #	cd $(SRC); \
 #	SRCDIR=`pwd`; \
-#
 #	TMPDIR=/tmp/staden$$$$; \
 #	if test ! -d $$TMPDIR; \
 #	then mkdir $$TMPDIR; \
 #	fi; \
 #	cd $$TMPDIR; \
 #	rm -f *.f *.o; \
-#
 #	fsplit $$SRCDIR/`expr $< : '.*/\(.*\)' \| $<`; \
 #	$(F77) $(FFLAGS) -c *.f; \
-#
+#	rm *.f; \
-##	rm *.f; \
+#	rm -f $$BINDIR/$@; \
-#
+#	ar rcv $$BINDIR/$@ *.o; \
-#	rm -f $@; \
+#	ranlib $$BINDIR/$@; \
-#	ar rcv $@ *.o; \
+#	rm *.o; \
-#	ranlib $@; \
-##rm *.o; \
-#
 #	cd $$BINDIR; \
 #	rm -r $$TMPDIR
 
-
+%.a:	$(SRC)/%.f
+	$(F77) $(FFLAGS) -c *.f; \
+	ar rcv *.o
 
 #.f.a:
 #	$(F77) $(FFLAGS) -c $<

src/staden/seeme-dec.f

@@ -670,7 +670,6 @@ C
       WRITE(*,*)'END IN GETRSL'
       END
       INTEGER FUNCTION SEEKRS(IDEV,IREC)
-      EXTERNAL FSEEK
+      INTEGER FSEEK
-C      INTEGER FSEEK
       SEEKRS = FSEEK(IDEV,IREC,0)
       END

src/staden/userfacecom.c

@@ -2,10 +2,9 @@
 #include <stdlib.h>
 #include <string.h>
 #include <sys/types.h>
-
-#include "FtoC.h" /* IMPORT: Fstr2Cstr and Cstr2Fstr */
-#include "helpnmenu.h"
 #include "userface.h"
+#include "helpnmenu.h"
+#include "FtoC.h" /* IMPORT: Fstr2Cstr and Cstr2Fstr */
 
 /*
  * Prompts the user with either one yes/no question or another.
@@ -17,16 +16,16 @@
  *    1 = no
  *   -1 = cancel
  */
-int yesono(int choice, char *prompt1, char *prompt2)
+int yesono(int choice, char *prompt1, char *prompt2) {
-{
     int a;
 
-	switch (choice) {
+    switch(choice) {
     case 0:
 	return yesno(prompt1);
     case 1:
 	a = yesno(prompt2);
-			if (a >= 0) a ^= 1;
+	if (a>=0)
+	    a ^= 1;
 	return a;
     default:
 	fputs("yesno() called with bad 'choice'\n", stderr);
@@ -42,11 +41,20 @@ int yesono(int choice, char *prompt1, char *prompt2)
 |*									    *|
 \*--------------------------------------------------------------------------*/
 
-void getint_x(int_f *MININ_p, int_f *MAXIN_p, int_f *DEF_p, char *PROMPT_p,
+void getint_x(int_f *MININ_p,
+	      int_f *MAXIN_p,
+	      int_f *DEF_p,
+	      char  *PROMPT_p,
 	      int_f *VALUE_p,  /* out: result */
-	      int_f *KBIN_p, int_f *KBOUT_p, int_f *IHELPS_p, int_f *IHELPE_p,
+	      int_f *KBIN_p,
-	      char *HELPF_p, int_f *IDEVH_p, int_f *IOK_p, /* out: status */
+	      int_f *KBOUT_p,
-	      int_fl PROMPT_l, int_fl HELPF_l)
+	      int_f *IHELPS_p,
+	      int_f *IHELPE_p,
+	      char  *HELPF_p,
+	      int_f *IDEVH_p,
+	      int_f *IOK_p,    /* out: status */
+	      int_fl PROMPT_l,
+	      int_fl HELPF_l)
 /*
  * Prompt for an integer in the range *MININ_p <= i <= *MAXIN_p
  * IOK=0 => OK
@@ -58,17 +66,26 @@ void getint_x(int_f *MININ_p, int_f *MAXIN_p, int_f *DEF_p, char *PROMPT_p,
 
     Fstr2Cstr(PROMPT_p, PROMPT_l, prompt, (int_fl)sizeof(prompt));
 
-	*VALUE_p =
+    *VALUE_p = getint((int)*MININ_p, (int)*MAXIN_p, (int)*DEF_p,
-	    getint((int)*MININ_p, (int)*MAXIN_p, (int)*DEF_p, prompt, &status);
+		      prompt, &status);
-	*IOK_p = (int_f)((status < 0) ? 1 : 0);
+    *IOK_p = (int_f)((status < 0)? 1:0);
 
     return;
 }
 
-void getrl_x(float *MININ_p, float *MAXIN_p, float *DEF_p, char *PROMPT_p,
+void getrl_x(float *MININ_p,
+	     float *MAXIN_p,
+	     float *DEF_p,
+	     char  *PROMPT_p,
 	     float *VALUE_p,  /* out: result */
-	     int_f *KBIN_p, int_f *KBOUT_p, int_f *IHELPS_p, int_f *IHELPE_p,
+	     int_f *KBIN_p,
-	     char *HELPF_p, int_f *IDEVH_p, int_f *IOK_p, int_fl PROMPT_l,
+	     int_f *KBOUT_p,
+	     int_f *IHELPS_p,
+	     int_f *IHELPE_p,
+	     char  *HELPF_p,
+	     int_f *IDEVH_p,
+	     int_f *IOK_p,
+	     int_fl PROMPT_l,
 	     int_fl HELPF_l)
 /*
  * Prompt for a real in the range *MININ_p <= i <= *MAXIN_p
@@ -83,15 +100,24 @@ void getrl_x(float *MININ_p, float *MAXIN_p, float *DEF_p, char *PROMPT_p,
     Fstr2Cstr(PROMPT_p, PROMPT_l, prompt, (int_fl)sizeof(prompt));
 
     *VALUE_p = getfloat(*MININ_p, *MAXIN_p, *DEF_p, prompt, &status, 2);
-	*IOK_p = (int_f)((status < 0) ? 1 : 0);
+    *IOK_p = (int_f)((status < 0)? 1:0);
 
     return;
 }
 
-void getrls_x(float *MININ_p, float *MAXIN_p, float *DEF_p, char *PROMPT_p,
+void getrls_x(float *MININ_p,
+	      float *MAXIN_p,
+	      float *DEF_p,
+	      char  *PROMPT_p,
 	      float *VALUE_p,  /* out: result */
-	      int_f *KBIN_p, int_f *KBOUT_p, int_f *IHELPS_p, int_f *IHELPE_p,
+	      int_f *KBIN_p,
-	      char *HELPF_p, int_f *IDEVH_p, int_f *IOK_p, int_fl PROMPT_l,
+	      int_f *KBOUT_p,
+	      int_f *IHELPS_p,
+	      int_f *IHELPE_p,
+	      char  *HELPF_p,
+	      int_f *IDEVH_p,
+	      int_f *IOK_p,
+	      int_fl PROMPT_l,
 	      int_fl HELPF_l)
 /*
  * Prompt for a real in the range *MININ_p <= i <= *MAXIN_p
@@ -106,14 +132,21 @@ void getrls_x(float *MININ_p, float *MAXIN_p, float *DEF_p, char *PROMPT_p,
     Fstr2Cstr(PROMPT_p, PROMPT_l, prompt, (int_fl)sizeof(prompt));
 
     *VALUE_p = getfloat(*MININ_p, *MAXIN_p, *DEF_p, prompt, &status, 10);
-	*IOK_p = (int_f)((status < 0) ? 1 : 0);
+    *IOK_p = (int_f)((status < 0)? 1:0);
 
     return;
 }
 
-void yesno_x(int_f *ANSWER_p, char *PROMPT_p, int_f *IHELPS_p, int_f *IHELPE_p,
+void yesno_x(int_f *ANSWER_p,
-	     char *HELPF_p, int_f *IDEVH_p, int_f *KBIN_p, int_f *KBOUT_p,
+	     char  *PROMPT_p,
-	     int_fl PROMPT_l, int_fl HELPF_l)
+	     int_f *IHELPS_p,
+	     int_f *IHELPE_p,
+	     char  *HELPF_p,
+	     int_f *IDEVH_p,
+	     int_f *KBIN_p,
+	     int_f *KBOUT_p,
+	     int_fl PROMPT_l,
+	     int_fl HELPF_l)
 /*
  * Prompt the user with *PROMPT_l and get a YES or NO response.
  * ANSWER=-1 => Cancel
@@ -127,9 +160,18 @@ void yesno_x(int_f *ANSWER_p, char *PROMPT_p, int_f *IHELPS_p, int_f *IHELPE_p,
     *ANSWER_p = (int_f)yesno(prompt);
 }
 
-void yesono_x(int_f *CHOICE_p, char *P1_p, char *P2_p, int_f *IHELPS_p,
+void yesono_x(int_f *CHOICE_p,
-	      int_f *IHELPE_p, char *HELPF_p, int_f *IDEVH_p, int_f *KBIN_p,
+	      char  *P1_p,
-	      int_f *KBOUT_p, int_fl P1_l, int_fl P2_l, int_fl HELPF_l)
+	      char  *P2_p,
+	      int_f *IHELPS_p,
+	      int_f *IHELPE_p,
+	      char  *HELPF_p,
+	      int_f *IDEVH_p,
+	      int_f *KBIN_p,
+	      int_f *KBOUT_p,
+	      int_fl P1_l,
+	      int_fl P2_l,
+	      int_fl HELPF_l)
 /*
  * If CHOICE is 0, present a YESNO dialogue with prompt P1.
  * If CHOICE is 1, present a YESNO dialogue with prompt P2.
@@ -148,8 +190,12 @@ void gtstr_x(char *P_p,	      /* prompt */
 	     char  *NEW_p,    /* out: dialogue result */
 	     int_f *LENGTH_p, /* in:  significant length of *STRING_p
 			 	out: significant length of *NEW_p */
-	     int_f *KBOUT_p, int_f *KBIN_p, int_f *INFLAG_p, /* out: status */
+	     int_f *KBOUT_p,
-	     int_fl P_l, int_fl STRING_l, int_fl NEW_l)
+	     int_f *KBIN_p,
+	     int_f *INFLAG_p, /* out: status */
+	     int_fl P_l,
+	     int_fl STRING_l,
+	     int_fl NEW_l)
 /*
  * Prompt with P for a string, default value STRING.
  * Return new string in NEW.
@@ -167,13 +213,11 @@ void gtstr_x(char *P_p,	      /* prompt */
     if (*LENGTH_p > 0) {
 	Fstr2Cstr(STRING_p, STRING_l, def, (int_fl)sizeof(def));
 	defptr = def;
-	}
+    } else
-	else
 	defptr = 0;
 
-	ret =
+    ret = gtstr(question, defptr, NEW_p, (size_t)((NEW_l==1)?40:NEW_l));
-	    gtstr(question, defptr, NEW_p, (size_t)((NEW_l == 1) ? 40 : NEW_l));
+    switch(ret) {
-	switch (ret) {
     case -1:
 	*INFLAG_p = 2;
 	*LENGTH_p = 1;
@@ -195,7 +239,9 @@ void getstr_x(char *P_p,       /* prompt */
 	      int_f *MAXSTR_p, /* array length of *STRING_p and *NEW_p */
 	      int_f *LENGTH_p, /* in:  significant length of *STRING_p
 				 out: significant length of *NEW_p */
-	      int_f *KBOUT_p, int_f *KBIN_p, int_f *INFLAG_p, /* out: status */
+	      int_f *KBOUT_p,
+	      int_f *KBIN_p,
+	      int_f *INFLAG_p, /* out: status */
 	      int_fl P_l)
 /*
  * Present a dialogue requesting a string result with the given prompt
@@ -206,16 +252,31 @@ void getstr_x(char *P_p,       /* prompt */
  * given *STRING_p and *NEW_p.
  */
 {
-	gtstr_x(P_p, STRING_p, NEW_p, LENGTH_p, KBOUT_p, KBIN_p, INFLAG_p, P_l,
+    gtstr_x(P_p,
-		*MAXSTR_p, *MAXSTR_p);
+	    STRING_p,
+	    NEW_p,   
+	    LENGTH_p,
+	    KBOUT_p,
+	    KBIN_p,
+	    INFLAG_p,
+	    P_l,
+	    *MAXSTR_p,
+	    *MAXSTR_p);
 }
 
-void radion_x(char *TITLE_p, char *PROMPT_p, /* Actually: *PROMPT_p[*NB_p] */
+void radion_x(char  *TITLE_p,
+	      char  *PROMPT_p, /* Actually: *PROMPT_p[*NB_p] */
 	      int_f *NB_p,     /* Number of buttons (1..NB) */
 	      int_f *CHOICE_p, /* in:  default button
 			         out: selected button */
-	      int_f *IHELPS_p, int_f *IHELPE_p, char *HELPF_p, int_f *IDEVH_p,
+	      int_f *IHELPS_p,
-	      int_f *KBIN_p, int_f *KBOUT_p, int_fl TITLE_l, int_fl PROMPT_l,
+	      int_f *IHELPE_p,
+	      char  *HELPF_p,
+	      int_f *IDEVH_p,
+	      int_f *KBIN_p,
+	      int_f *KBOUT_p,
+	      int_fl TITLE_l,
+	      int_fl PROMPT_l,
 	      int_fl HELPF_l)
 /*
  * Present a ``radio button'' dialogue allowing the user to select
@@ -230,11 +291,10 @@ void radion_x(char *TITLE_p, char *PROMPT_p, /* Actually: *PROMPT_p[*NB_p] */
 
     /* initialise options array */
     opt = (char **)malloc(numopts * sizeof(char *));
-	opt[0] = (char *)malloc((unsigned int)((PROMPT_l + 1) * numopts));
+    opt[0] = (char *)malloc((unsigned int)((PROMPT_l+1) * numopts));
-	for (i = 0; i < numopts; i++) {
+    for (i=0; i<numopts; i++) {
-		opt[i] = opt[0] + (PROMPT_l + 1) * i;
+	opt[i] = opt[0] + (PROMPT_l+1)*i;
-		Fstr2Cstr(PROMPT_p + (i * PROMPT_l), PROMPT_l, opt[i],
+	Fstr2Cstr(PROMPT_p+(i*PROMPT_l), PROMPT_l, opt[i], PROMPT_l+1);
-			  PROMPT_l + 1);
     }
 
     Fstr2Cstr(TITLE_p, TITLE_l, title, (int_fl)sizeof(title));
@@ -246,11 +306,17 @@ void radion_x(char *TITLE_p, char *PROMPT_p, /* Actually: *PROMPT_p[*NB_p] */
     return;
 }
 
-void check4_x(char *P1_p, char *P2_p, char *P3_p, char *P4_p, int_f *C1_p,
+void check4_x(char  *P1_p, char  *P2_p, char  *P3_p, char  *P4_p,
-	      int_f *C2_p, int_f *C3_p, int_f *C4_p, int_f *IHELPS_p,
+	      int_f *C1_p, int_f *C2_p, int_f *C3_p, int_f *C4_p,
-	      int_f *IHELPE_p, char *HELPF_p, int_f *IDEVH_p, int_f *KBIN_p,
+	      int_f *IHELPS_p,
-	      int_f *KBOUT_p, int_f *IOK_p, int_fl P1_l, int_fl P2_l,
+	      int_f *IHELPE_p,
-	      int_fl P3_l, int_fl P4_l, int_fl HELPF_l)
+	      char  *HELPF_p,
+	      int_f *IDEVH_p,
+	      int_f *KBIN_p,
+	      int_f *KBOUT_p,
+	      int_f *IOK_p,
+	      int_fl P1_l, int_fl P2_l, int_fl P3_l, int_fl P4_l,
+	      int_fl HELPF_l)
 /*
  * Present a ``checkbox'' dialogue allowing the user to alter the
  * Boolean state of four items.
@@ -264,14 +330,10 @@ void check4_x(char *P1_p, char *P2_p, char *P3_p, char *P4_p, int_f *C1_p,
     char *prompts[4];
     int *bools[4];
 
-	prompts[0] = P1_p;
+    prompts[0] = P1_p; bools[0] = (int *)C1_p;
-	bools[0] = (int *)C1_p;
+    prompts[1] = P2_p; bools[1] = (int *)C2_p;
-	prompts[1] = P2_p;
+    prompts[2] = P3_p; bools[2] = (int *)C3_p;
-	bools[1] = (int *)C2_p;
+    prompts[3] = P4_p; bools[3] = (int *)C4_p;
-	prompts[2] = P3_p;
-	bools[2] = (int *)C3_p;
-	prompts[3] = P4_p;
-	bools[3] = (int *)C4_p;
 
     ret = checkn(4, prompts, bools);
 
@@ -281,7 +343,8 @@ void check4_x(char *P1_p, char *P2_p, char *P3_p, char *P4_p, int_f *C1_p,
 	*IOK_p = 1;
 }
 
-void getopt_x(int_f *KBIN_p, int_f *KOPT_p,
+void getopt_x(int_f *KBIN_p,
+	      int_f *KOPT_p,
 	      int_f *IOPT_p) /* out: option number selected */
 /*
  * Select a function to execute
@@ -291,7 +354,7 @@ void getopt_x(int_f *KBIN_p, int_f *KOPT_p,
  */
 {
     *IOPT_p = (int_f)getcopt((int *)KOPT_p);
-	switch (*KOPT_p) {
+    switch(*KOPT_p) {
     case -3:
     case -2:
 	*KOPT_p = 0;
@@ -304,7 +367,9 @@ void getopt_x(int_f *KBIN_p, int_f *KOPT_p,
     }
 }
 
-void showfi_x(int_f *KBOUT_p, char *STRING_p, int_fl STRING_l)
+void showfi_x(int_f *KBOUT_p,
+	      char  *STRING_p,
+	      int_fl STRING_l)
 /*
  * Display `STRING', the name of the current file(s).
  */
@@ -315,7 +380,10 @@ void showfi_x(int_f *KBOUT_p, char *STRING_p, int_fl STRING_l)
     showfi(func);
 }
 
-void showfu_x(int_f *KBOUT_p, char *STRING_p, int_fl STRING_l)
+
+void showfu_x(int_f *KBOUT_p,
+	      char  *STRING_p,
+	      int_fl  STRING_l)
 /*
  * Display `STRING', the name of the current function.
  */
@@ -326,7 +394,9 @@ void showfu_x(int_f *KBOUT_p, char *STRING_p, int_fl STRING_l)
     showfu(func);
 }
 
-void errom_x(int_f *KBOUT_p, char *STRING_p, int_fl STRING_l)
+void errom_x(int_f *KBOUT_p,
+	     char  *STRING_p,
+	     int_fl  STRING_l)
 /*
  * Display the error message `STRING'.
  */
@@ -351,8 +421,10 @@ void busy_x(int_f *KBOUT_p)
  *    0 for ok
  *   -1 for cancel
  */
-void bpause_x(int_f *KBIN_p, int_f *KBOUT_p, int_f *IOK_p)
+void bpause_x(int_f *KBIN_p,
-{
+	      int_f *KBOUT_p,
+	      int_f *IOK_p) {
+
     *IOK_p = (int_f)bpause();
 }
 

src/vepe/makefile-alpha

@@ -37,8 +37,7 @@ FFLAGS= -g
 LD= gfortran
 LDFLAGS= -g 
 
-FLAGS = -lutil -lm
+FLIBS= -lfor -lutil -lUfor -lots -lFutil -lm -lfor -lutil -lUfor -lots -lFutil
-#FLIBS= -lfor -lutil -lUfor -lots -lFutil -lm -lfor -lutil -lUfor -lots -lFutil
 XLIBS= -lXaw -lXt -lXmu -lXext -lX11
 #LFLAGS= $(FLIBS)
 XLFLAGS= $(FLIBS) $(XLIBS)
@@ -53,7 +52,7 @@ $(STADENBIN)/%.o : $(STADENSRC)/%.c
 # Common objects, needed by every program
 #
 COMMONOBJS=\
-	$(STADENBIN)/seeme-aix.o\
+	$(STADENBIN)/seeme-dec.o\
 	$(STADENBIN)/nxspec.o\
 	$(STADENBIN)/userface.o\
 	$(STADENBIN)/userfacecom.o\