nnls.f: In subroutine `nnls':
nnls.f:90: 
    100  UNORM=DSQRT(UNORM) 
               ^
Reference to intrinsic `DSQRT' at (^) invalid -- one or more arguments have incorrect type
nnls.f:91: 
         TEMP=UNORM+DABS(A(NPP1,J))*FACTOR 
                    ^
Reference to intrinsic `DABS' at (^) invalid -- one or more arguments have incorrect type
nnls.f:243: 
    390  RNORM=DSQRT(SM) 
               ^
Reference to intrinsic `DSQRT' at (^) invalid -- one or more arguments have incorrect type
nnls.f: In subroutine `g1':
nnls.f:285: 
         IF (DABS(A) .LE. DABS(B)) GO TO 10 
             ^
Reference to intrinsic `DABS' at (^) invalid -- one or more arguments have incorrect type
nnls.f:285: 
         IF (DABS(A) .LE. DABS(B)) GO TO 10 
                          ^
Reference to intrinsic `DABS' at (^) invalid -- one or more arguments have incorrect type
nnls.f:288: 
         COSA=DSIGN(ONE/YR, A) 
              ^
Reference to intrinsic `DSIGN' at (^) invalid -- one or more arguments have incorrect type
nnls.f:290: 
         SIG=DABS(A)*YR 
             ^
Reference to intrinsic `DABS' at (^) invalid -- one or more arguments have incorrect type
nnls.f:295: 
         SINA=DSIGN(ONE/YR, B) 
              ^
Reference to intrinsic `DSIGN' at (^) invalid -- one or more arguments have incorrect type
nnls.f:297: 
         SIG=DABS(B)*YR 
             ^
Reference to intrinsic `DABS' at (^) invalid -- one or more arguments have incorrect type
nnls.f:193: warning:
         CALL G1(A(J-1,II), A(J,II), CC, SS, A(J-1,II)) 
              1
nnls.f:270: (continued):
         SUBROUTINE G1(A, B, COSA, SINA, SIG) 
                    2
Argument #5 (named `sig') of `g1' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
nnls.f: In subroutine `h12':
nnls.f:313: 
         CL=DABS(U(1,LPIVOT)) 
            ^
Reference to intrinsic `DABS' at (^) invalid -- one or more arguments have incorrect type
nnls.f:317: 
    10   CL=DMAX1(DABS(U(1,J)),CL) 
                  ^
Reference to intrinsic `DABS' at (^) invalid -- one or more arguments have incorrect type
nnls.f:85: warning:
         CALL H12(1, NPP1, NPP1+1, M, A(1,J), 1, UP, DUMMY, 1, 1, 0) 
              1
nnls.f:304: (continued):
         SUBROUTINE H12(MODE, LPIVOT, L1, M, U, IUE, UP, C, ICE, ICV, NCV) 
                    2
Argument #7 (named `up') of `h12' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
