HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

460 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
$TITLE ’ Cleanup After Work’
!***************************************************************!
! !
! Cleanup After Work !
! !
!***************************************************************!
!
SUBROUTINE CLEANUP_AFTER_WORK
!
IMPLICIT NONE
!
COMMON /COMO1/ COMAREA
!
SYSTEM INTRINSIC VCLOSEFORMF,
+ VCLOSETERM
!
INTEGER*2 COMAREA(60)
INTEGER*2 CSTATUS
EQUIVALENCE (COMAREA(1), CSTATUS)
!
! Note that this routine unconditionally attempts to close
! the Forms File and Terminal
!
CLOSE (UNIT = 10)
!
CSTATUS = 0
!
CALL VCLOSEFORMF (COMAREA)
!
CSTATUS = 0
!
CALL VCLOETERM (COMAREA)
!
END