        SUBROUTINE VARIFRESH
!        USE WINTERACTER
        IMPLICIT NONE
        INCLUDE 'RESOURCE.INC'
        INCLUDE 'DATMAI.INC'
        INCLUDE 'DATLEN.INC'
        INCLUDE 'DATSUB.INC'
        INTEGER I,J,NVBCNT
        CHARACTER NAME8*8,AJ*3
        NVBCNT=VBCNT
        IF(VBCNT.EQ.0) NVBCNT=10
!        CALL WGRIDROWS(IDF_VGRID,NVBCNT)
                        DO I=1,NVBCNT
                        J=I
                        CALL ITOAA(I,AJ)
!        CALL WGRIDLABELROW(IDF_VGRID,J,AJ)
                        END DO
        IF(VBCNT.GT.0) THEN
                        DO I=1,VBCNT
        IF(VARABL(I,1).EQ.2.0D0) NAME8='CV      '
        IF(VARABL(I,1).EQ.3.0D0) NAME8='TH      '
        IF(VARABL(I,1).EQ.4.0D0) NAME8='CC      '
        IF(VARABL(I,1).EQ.5.0D0) NAME8='AD      '
        IF(VARABL(I,1).EQ.6.0D0) NAME8='AE      '
        IF(VARABL(I,1).EQ.7.0D0) NAME8='AF      '
        IF(VARABL(I,1).EQ.8.0D0) NAME8='AG      '
        IF(VARABL(I,1).EQ.10.0D0) NAME8='CVTOR   '
        IF(VARABL(I,1).EQ.11.0D0) NAME8='CCTOR   '
        IF(VARABL(I,1).EQ.12.0D0) NAME8='ADTOR   '
        IF(VARABL(I,1).EQ.13.0D0) NAME8='AETOR   '
        IF(VARABL(I,1).EQ.14.0D0) NAME8='AFTOR   '
        IF(VARABL(I,1).EQ.15.0D0) NAME8='AGTOR   '
        IF(VARABL(I,1).EQ.16.0D0) NAME8='ALPHA   '
        IF(VARABL(I,1).EQ.17.0D0) NAME8='BETA    '
        IF(VARABL(I,1).EQ.18.0D0) NAME8='GAMMA   '
        IF(VARABL(I,1).EQ.19.0D0) NAME8='XD      '
        IF(VARABL(I,1).EQ.20.0D0) NAME8='YD      '
        IF(VARABL(I,1).EQ.21.0D0) NAME8='N1      '
        IF(VARABL(I,1).EQ.22.0D0) NAME8='N2      '
        IF(VARABL(I,1).EQ.23.0D0) NAME8='N3      '
        IF(VARABL(I,1).EQ.24.0D0) NAME8='N4      '
        IF(VARABL(I,1).EQ.25.0D0) NAME8='N5      '
        IF(VARABL(I,1).EQ.27.0D0) NAME8='C1      '
        IF(VARABL(I,1).EQ.28.0D0) NAME8='C2      '
        IF(VARABL(I,1).EQ.29.0D0) NAME8='C3      '
        IF(VARABL(I,1).EQ.30.0D0) NAME8='C4      '
        IF(VARABL(I,1).EQ.31.0D0) NAME8='C5      '
        IF(VARABL(I,1).EQ.32.0D0) NAME8='C6      '
        IF(VARABL(I,1).EQ.33.0D0) NAME8='C7      '
        IF(VARABL(I,1).EQ.34.0D0) NAME8='C8      '
        IF(VARABL(I,1).EQ.35.0D0) NAME8='C9      '
        IF(VARABL(I,1).EQ.36.0D0) NAME8='C10     '
        IF(VARABL(I,1).EQ.37.0D0) NAME8='C11     '
        IF(VARABL(I,1).EQ.38.0D0) NAME8='C12     '
        IF(VARABL(I,1).EQ.39.0D0) NAME8='C13     '
        IF(VARABL(I,1).EQ.40.0D0) NAME8='C14     '
        IF(VARABL(I,1).EQ.41.0D0) NAME8='C15     '
        IF(VARABL(I,1).EQ.42.0D0) NAME8='C16     '
        IF(VARABL(I,1).EQ.43.0D0) NAME8='C17     '
        IF(VARABL(I,1).EQ.44.0D0) NAME8='C18     '
        IF(VARABL(I,1).EQ.45.0D0) NAME8='C19     '
        IF(VARABL(I,1).EQ.46.0D0) NAME8='C20     '
        IF(VARABL(I,1).EQ.47.0D0) NAME8='C21     '
        IF(VARABL(I,1).EQ.48.0D0) NAME8='C22     '
        IF(VARABL(I,1).EQ.49.0D0) NAME8='C23     '
        IF(VARABL(I,1).EQ.50.0D0) NAME8='C24     '
        IF(VARABL(I,1).EQ.51.0D0) NAME8='C25     '
        IF(VARABL(I,1).EQ.52.0D0) NAME8='C26     '
        IF(VARABL(I,1).EQ.53.0D0) NAME8='C27     '
        IF(VARABL(I,1).EQ.54.0D0) NAME8='C28     '
        IF(VARABL(I,1).EQ.55.0D0) NAME8='C29     '
        IF(VARABL(I,1).EQ.56.0D0) NAME8='C30     '
        IF(VARABL(I,1).EQ.57.0D0) NAME8='C31     '
        IF(VARABL(I,1).EQ.58.0D0) NAME8='C32     '
        IF(VARABL(I,1).EQ.59.0D0) NAME8='C33     '
        IF(VARABL(I,1).EQ.60.0D0) NAME8='C34     '
        IF(VARABL(I,1).EQ.61.0D0) NAME8='C35     '
        IF(VARABL(I,1).EQ.62.0D0) NAME8='C36     '
        IF(VARABL(I,1).EQ.63.0D0) NAME8='C37     '
        IF(VARABL(I,1).EQ.64.0D0) NAME8='C38     '
        IF(VARABL(I,1).EQ.65.0D0) NAME8='C39     '
        IF(VARABL(I,1).EQ.66.0D0) NAME8='C40     '
        IF(VARABL(I,1).EQ.67.0D0) NAME8='C41     '
        IF(VARABL(I,1).EQ.68.0D0) NAME8='C42     '
        IF(VARABL(I,1).EQ.69.0D0) NAME8='C43     '
        IF(VARABL(I,1).EQ.70.0D0) NAME8='C44     '
        IF(VARABL(I,1).EQ.71.0D0) NAME8='C45     '
        IF(VARABL(I,1).EQ.72.0D0) NAME8='C46     '
        IF(VARABL(I,1).EQ.73.0D0) NAME8='C47     '
        IF(VARABL(I,1).EQ.74.0D0) NAME8='C48     '
        IF(VARABL(I,1).EQ.75.0D0) NAME8='AC      '
        IF(VARABL(I,1).EQ.76.0D0) NAME8='C59     '
        IF(VARABL(I,1).EQ.77.0D0) NAME8='C50     '
        IF(VARABL(I,1).EQ.78.0D0) NAME8='C51     '
        IF(VARABL(I,1).EQ.79.0D0) NAME8='C52     '
        IF(VARABL(I,1).EQ.80.0D0) NAME8='C53     '
        IF(VARABL(I,1).EQ.81.0D0) NAME8='C54     '
        IF(VARABL(I,1).EQ.82.0D0) NAME8='C55     '
        IF(VARABL(I,1).EQ.83.0D0) NAME8='C56     '
        IF(VARABL(I,1).EQ.84.0D0) NAME8='C57     '
        IF(VARABL(I,1).EQ.85.0D0) NAME8='C58     '
        IF(VARABL(I,1).EQ.86.0D0) NAME8='C69     '
        IF(VARABL(I,1).EQ.87.0D0) NAME8='C60     '
        IF(VARABL(I,1).EQ.88.0D0) NAME8='C61     '
        IF(VARABL(I,1).EQ.89.0D0) NAME8='C62     '
        IF(VARABL(I,1).EQ.90.0D0) NAME8='C63     '
        IF(VARABL(I,1).EQ.91.0D0) NAME8='C64     '
        IF(VARABL(I,1).EQ.92.0D0) NAME8='C65     '
        IF(VARABL(I,1).EQ.93.0D0) NAME8='C66     '
        IF(VARABL(I,1).EQ.94.0D0) NAME8='C67     '
        IF(VARABL(I,1).EQ.95.0D0) NAME8='C68     '
        IF(VARABL(I,1).EQ.96.0D0) NAME8='C79     '
        IF(VARABL(I,1).EQ.97.0D0) NAME8='C70     '
        IF(VARABL(I,1).EQ.98.0D0) NAME8='C71     '
        IF(VARABL(I,1).EQ.99.0D0) NAME8='C72     '
        IF(VARABL(I,1).EQ.100.0D0) NAME8='C73     '
        IF(VARABL(I,1).EQ.101.0D0) NAME8='C74     '
        IF(VARABL(I,1).EQ.102.0D0) NAME8='C75     '
        IF(VARABL(I,1).EQ.103.0D0) NAME8='C76     '
        IF(VARABL(I,1).EQ.104.0D0) NAME8='C77     '
        IF(VARABL(I,1).EQ.105.0D0) NAME8='C78     '
        IF(VARABL(I,1).EQ.106.0D0) NAME8='C89     '
        IF(VARABL(I,1).EQ.107.0D0) NAME8='C80     '
        IF(VARABL(I,1).EQ.108.0D0) NAME8='C81     '
        IF(VARABL(I,1).EQ.109.0D0) NAME8='C82     '
        IF(VARABL(I,1).EQ.100.0D0) NAME8='C83     '
        IF(VARABL(I,1).EQ.111.0D0) NAME8='C84     '
        IF(VARABL(I,1).EQ.112.0D0) NAME8='C85     '
        IF(VARABL(I,1).EQ.113.0D0) NAME8='C86     '
        IF(VARABL(I,1).EQ.114.0D0) NAME8='C87     '
        IF(VARABL(I,1).EQ.115.0D0) NAME8='C88     '
        IF(VARABL(I,1).EQ.116.0D0) NAME8='C89     '
        IF(VARABL(I,1).EQ.117.0D0) NAME8='C90     '
        IF(VARABL(I,1).EQ.118.0D0) NAME8='C91     '
        IF(VARABL(I,1).EQ.119.0D0) NAME8='C92     '
        IF(VARABL(I,1).EQ.120.0D0) NAME8='C93     '
        IF(VARABL(I,1).EQ.121.0D0) NAME8='C94     '
        IF(VARABL(I,1).EQ.122.0D0) NAME8='C95     '
        IF(VARABL(I,1).EQ.123.0D0) NAME8='C96     '
        IF(VARABL(I,1).EQ.124.0D0) NAME8='N6      '
        IF(VARABL(I,1).EQ.125.0D0) NAME8='N7      '
        IF(VARABL(I,1).EQ.126.0D0) NAME8='N8      '
        IF(VARABL(I,1).EQ.127.0D0) NAME8='N9      '
        IF(VARABL(I,1).EQ.128.0D0) NAME8='N10     '
        IF(VARABL(I,1).EQ.129.0D0) NAME8='AH      '
        IF(VARABL(I,1).EQ.130.0D0) NAME8='AI      '
        IF(VARABL(I,1).EQ.131.0D0) NAME8='AJ      '
        IF(VARABL(I,1).EQ.132.0D0) NAME8='AK      '
        IF(VARABL(I,1).EQ.133.0D0) NAME8='AL      '
        IF(VARABL(I,1).EQ.134.0D0) NAME8='ZD      '
        IF(VARABL(I,1).EQ.135.0D0) NAME8='INDEX   '
        IF(VARABL(I,1).EQ.136.0D0) NAME8='VNUM    '
        IF(VARABL(I,1).EQ.137.0D0) NAME8='PIVX    '
        IF(VARABL(I,1).EQ.138.0D0) NAME8='PIVY    '
        IF(VARABL(I,1).EQ.139.0D0) NAME8='PIVZ    '
        IF(VARABL(I,1).EQ.140.0D0) NAME8='DPART   '
        IF(VARABL(I,1).EQ.141.0D0) NAME8='CLPX    '
        IF(VARABL(I,1).EQ.142.0D0) NAME8='CLPY    '
        IF(VARABL(I,1).EQ.143.0D0) NAME8='GDX     '
        IF(VARABL(I,1).EQ.144.0D0) NAME8='GDY     '
        IF(VARABL(I,1).EQ.145.0D0) NAME8='GDZ     '
        IF(VARABL(I,1).EQ.146.0D0) NAME8='GALPHA  '
        IF(VARABL(I,1).EQ.147.0D0) NAME8='GBETA   '
        IF(VARABL(I,1).EQ.148.0D0) NAME8='GGAMMA  '
        IF(VARABL(I,1).EQ.149.0D0) NAME8='GRS     '
!        CALL WGRIDPUTCELLSTRING(IDF_VGRID,1,I,NAME8)
!        CALL WGRIDPUTCELLINTEGER(IDF_VGRID,2,I,INT(VARABL(I,3)))
!        CALL WGRIDPUTCELLDOUBLE(IDF_VGRID,3,I,VARABL(I,4))
!        CALL WGRIDPUTCELLDOUBLE(IDF_VGRID,4,I,VARABL(I,7))
!        CALL WGRIDPUTCELLDOUBLE(IDF_VGRID,5,I,VARABL(I,9))
!        CALL WGRIDPUTCELLDOUBLE(IDF_VGRID,6,I,VARABL(I,10))
!        CALL WGRIDPUTCELLINTEGER(IDF_VGRID,7,I,INT(VARABL(I,2)))
!        CALL WGRIDPUTCELLDOUBLE(IDF_VGRID,8,I,VARABL(I,8))
                        END DO
                        END IF
                        RETURN
                        END
