g77 -c -O2  -c orient.f -o orient.o
orient.f: In subroutine `orient':
orient.f:137: 
         IF(NTHETA.EQ.1.OR.NTHETA.EQ.2*(NTHETA/2)))THEN
                                                  ^
Invalid form for IF statement at (^)
orient.f:88: 
         DELTA=(BETAMX-BETAMI)/REAL(NBETA)
         1
orient.f:147: (continued):
         ELSE
         2
Statement at (2) invalid in context established by statement at (1)
orient.f:153: 
               WGT(1,J)=WG
               ^
Invalid declaration of or reference to symbol `wgt' at (^) [initially seen at (^)]
orient.f:88: 
         DELTA=(BETAMX-BETAMI)/REAL(NBETA)
         1
orient.f:168: (continued):
         ENDIF
         2
Statement at (2) invalid in context established by statement at (1)
make: *** [orient.o] Error 1
