home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / DataScope 2.0.3 / Datafiles / externs / UNICOS_externs / dsfnF.f < prev    next >
Encoding:
Text File  |  1994-05-04  |  432 b   |  19 lines  |  [TEXT/????]
  1.  
  2.        subroutine norm(vals,rows,cols,nrows,ncols,maxr,maxc,p)
  3.        integer maxr,maxc,p
  4.        integer nrows(0:p),ncols(0:p)
  5.        real vals(maxc,maxr,0:p)
  6.        real rows(maxr,0:p), cols(maxc,0:p)
  7.  
  8. c
  9. c  this example takes the first parameter array #1 and computes
  10. c  the answer and places that in answer #0
  11. c
  12.  
  13.        do 100 j=1,nrows(0)
  14.            do 100 i=1,ncols(0)
  15.                vals(i,j,0) = vals(i,j,1)/255.0
  16. 100    continue
  17.        return
  18.        end
  19.