g77 -c -O2  -c orient.f -o orient.o
orient.f: In subroutine `orient':
orient.f:153: 
               WGT(1,J)=WG
               ^
Invalid declaration of or reference to symbol `wgt' at (^) [initially seen at (^)]
make: *** [orient.o] Error 1
