Symbol Description Uses
REAL_BYTE 10



File Line number Procedure Code
./optim/optim_sub.F 111 OPTIM_SUB
      print*, ' OPTIMUM: with nn, REAL_BYTE = ', nn, REAL_BYTE
./optim/optim_sub.F 74 OPTIM_SUB
      call MYALLOC( pxx  ,  nn*REAL_BYTE )
./optim/optim_sub.F 75 OPTIM_SUB
      call MYALLOC( padxx,  nn*REAL_BYTE )
./optim/optim_sub.F 76 OPTIM_SUB
      call MYALLOC( pdd,    nn*REAL_BYTE )
./optim/optim_sub.F 77 OPTIM_SUB
      call MYALLOC( pgold,  nn*REAL_BYTE )
./optim/optim_sub.F 78 OPTIM_SUB
      call MYALLOC( pxdiff, nn*REAL_BYTE )
./lsopt/lsopt_top.F 128 LSOPT_TOP
      REAL_BYTE = 4
./lsopt/lsopt_top.F 129 LSOPT_TOP
      isize = REAL_BYTE
./lsopt/lsopt_top.F 234 LSOPT_TOP
      if (isize .ne. REAL_BYTE) then
./lsopt/lsopt_top.F 77 LSOPT_TOP
      integer mm, mupd, jmin, jmax, indic, isize, REAL_BYTE