#!/bin/csh

set PNETCDFPATH     = /home/michalak/pn

set BGL_SYS         =      "/bgl/BlueLight/ppcfloor/bglsys"
set MPI_INC         =      "-I$BGL_SYS/include"
set MPI_LIB         =      "-L$BGL_SYS/lib -lmpich.rts -lmsglayer.rts -lrts.rts -ldevices.rts"
set TRACE_LIB       =      "-L/contrib/bgl/mpi_trace  -lmpitrace_c"

set SFC             =      "blrts_xlf90"
set SCC             =      "blrts_xlc"
set DMPARALLEL      =      "1"
set FC              =      "$SFC"
set LD              =      "$FC"
set CC              =      "$SCC"
set CPP             =      "/opt/ibmcmp/xlf/9.1/exe/cpp"

set LIB             =      "-L$PNETCDFPATH/lib -lpnetcdf $MPI_LIB"

set INC = "$MPI_INC -I$PNETCDFPATH/include"

##########################

cat > p.F << _EEE_
  PROGRAM xxx
    IMPLICIT NONE
    INTEGER ierr
    CALL mpi_init ( ierr )
    CALL test
  END PROGRAM xxx

  SUBROUTINE test
    IMPLICIT NONE
    include 'mpif.h'
#  include "pnetcdf.inc"
    INTEGER ncid, varid, stat
    integer                                :: XType
    integer                                :: StoredDim
    integer                                :: NAtts
    integer(KIND=MPI_OFFSET_KIND)          :: Len
    integer                                :: DimIDs(2)
    integer(KIND=MPI_OFFSET_KIND)          :: VStart(2)
    integer(KIND=MPI_OFFSET_KIND)          :: VLen(2)
    character (19)       :: Times(10)

!    stat = NFMPI_OPEN(MPI_COMM_WORLD, "wrfrst_d01_2005-04-03_00_00_00", NF_NOWRITE, MPI_INFO_NULL, ncid )
    stat = NFMPI_OPEN(MPI_COMM_WORLD, "wrfinput_d01", NF_NOWRITE, MPI_INFO_NULL, ncid )
    print*,__FILE__,__LINE__,stat
    stat = NFMPI_INQ_VARID(ncid,"Times",VarID)
    print*,__FILE__,__LINE__,stat
    stat = NFMPI_INQ_VAR(ncid,VarID,"Times", XType, StoredDim, DimIDs, NAtts)
    print*,__FILE__,__LINE__,stat

    stat = NFMPI_INQ_DIMLEN(ncid,DimIDs(1),VLen(1))
    print*,__FILE__,__LINE__,stat
    stat = NFMPI_INQ_DIMLEN(ncid,DimIDs(2),VLen(2))
    print*,__FILE__,__LINE__,stat

    VStart(1) = 1
    VStart(2) = 1

    stat = NFMPI_GET_VARA_TEXT_ALL(ncid,VarID,VStart,VLen,Times)
    print*,__FILE__,__LINE__,stat

    print*,'stat ', stat
    print*,'Times ',Times(1)

  END SUBROUTINE test
_EEE_

##########################

$CPP $INC p.F > p.f
echo $FC p.f $LIB
$FC $MPI_INC p.f $LIB

if ( -x a.out ) then
   echo done. executable file is a.out
endif