Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

C	THIS PROGRAM IS A WESTERN MICHIGAN UNIVERSITY IMPLEMENTATION
C	 OF A WAYNE STATE UNIVERSITY VERSION OF A PROGRAM WHICH WAS
C	 ORIGINALLY PROGRAMMED AT THE UNIVERSITY OF MIAMI IN FLORIDA.
C	 THE MODIFICATION AT WMU WAS MADE BY SAM ANEMA.
C
C	FILES: MANOVA.F4,MANOV1.F4,MANOV2.F4,MANOV3.F4,MANOV4.F4
C
C	ADDITIONAL SUBROUTINES: USAGE - RUSS BARR(IN NGLIB).MAC
C
C	LOADING PROCEDURE:
C
C	R LOADER
C	MANOVMANOVA,USAGE/<MANOV1/>MANOV2/>MANOV3/>MANOV4/>/G
C	SAV MANOVA
C	SAV MANOVA
C
C     EXECUTIVE ROUTINE
      COMMON ORTHES(100,20),DUMMY(26,27),SSHYP(25,26),SSEAD(40,41),
     1ESTIM(50,50),        NUMERR(8),NERRS(100),NDFCUM(100),NDFTST(
     2100),VARNAM(2,50),HEAD(3,100),LEVEL(8),LEVSUB(8,10),LEVCUM(8,10),
     3NCELL(100), NTABLE(27),ITABLE(9,9),OBS(100)
     4      ,NVAR,NCOVAR,NERWIT,NERRES,HNUM(100),ERROR,NTESTS,RVARC,
     5           FIRST,IORD(50),IPOSV(50),IVPOS(50),NCELLS,NVART,NDFTOT,
     6SPECOR,VLIST,PRINTR,NFACT , READK,  PRINTK,CONTR ,TESTR, MFIRST,
     7TRUTH,BLANK,MAXFAC,MAXCEL,MAXPAR,MAXLEV,MAXVAR,ATITLE,AJOBCD,
     8AANALY,AFINIS,WITHIN,SPACE(10)
      DATA INP,IOUT,IAUX1,IAUX2/5,30,22,23/
      DATA IAUX4/24/
      LOGICAL FIRST,ERROR
      DOUBLE PRECISION  VARNAM
      MAXFAC = 4
      MAXCEL = 40
      FORMAT(G)
      MAXPAR = 25
      MAXLEV =14
      MAXVAR = 12
      ERROR = .FALSE.
      FIRST = .TRUE.
C	CALL USAGE('MANOVA')
      GO TO 120
  110 FIRST = .FALSE.
  120 REWIND IAUX1
       REWIND IAUX2
      CALL CHAINB(1,'MANOV')
      CALL RDCONT
      CALL CHAINB(2,'MANOV')
      CALL LNKK
      IF (ERROR) GO TO 110
      CALL CHAINB(3,'MANOV')
      CALL EST
      IF (ERROR) GO TO 110
      CALL CHAINB(4,'MANOV')
      CALL ANALYS
      GO TO 110
      WRITE(1)MAXFAC
      REWIND 1
      READ(1)J
      END