source: CIVL/mods/dev.civl.abc/examples/fortran/flash/eos_getData_min/driver.F

      Program Driver
      
        implicit none
      
        #include "Eos.h"
        #include "Eos_map.h"
        #include "constants.h"
        #include "Flash.h"
      
        integer range(LOW:HIGH,MDIM)
        integer vecLen, i, j, k ,l ,n
        real solnData(EOS_NUM,NZB,NYB,NXB)
        real eosData(EOS_NUM*NZB*NYB*NXB)
        
        range(LOW, IAXIS) = GRID_ILO
        range(LOW, JAXIS) = GRID_JLO
        range(LOW, KAXIS) = GRID_KLO
        range(HIGH, IAXIS) = GRID_IHI
        range(HIGH, JAXIS) = GRID_JHI
        range(HIGH, KAXIS) = GRID_KHI
      
        n = 1
      
        do l = 1, EOS_NUM
          do k = GRID_KLO,GRID_KHI
            do j = GRID_JLO,GRID_JHI
              do i = GRID_ILO,GRID_IHI
                solnData(l,k,j,i) = 1.0
                eosData(n) = 0.0
                n = n+1
              end do
            end do
          end do
        end do
      
!        call Eos_getData(range,vecLen,solnData,1,eosData)
        
      End Program Driver