Scribd
Upload
56 views1 page

Minesight Fortran

This document provides a skeleton for a USER 718 subroutine. It lists the common blocks and arguments that should be used. It also directs the user to documentation for more details on the argument list and common block variables. The user is instructed to use the bldusr command file to build their own user subroutine program based on this skeleton.

Uploaded by

junior
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
56 views1 page

Minesight Fortran

This document provides a skeleton for a USER 718 subroutine. It lists the common blocks and arguments that should be used. It also directs the user to documentation for more details on the argument list and common block variables. The user is instructed to use the bldusr command file to build their own user subroutine program based on this skeleton.

Uploaded by

junior
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

C Skeleton for USER 718 subroutine

C
C=======================================================================
C
C See the M718V2 doc and the Technical 600 Section of the doc for a
C complete description of Argument List and COMMON Block variables.
C
C Use command file bldusr (BLDUSR.BAT on PC) to build your user
C subroutine program. Instructions are in the command file.
C
C=======================================================================
SUBROUTINE USR718 ( VALUE, IX, IY, IZ )
C
COMMON / SYS / XDUM(100), IOP(40), PAR(40), XDUM2(104),
1 ICR, IPR, LCR, LPR, XDUM3(5), IOLEV, XDUM4(89)
C
DIMENSION IPCF(512)
COMMON / F10 / PCF(512), XDUMD(142)
EQUIVALENCE ( PCF(1), IPCF(1) )
C
COMMON / ITM / ITM(3,99), NIC(5,40), ITEMS, NICNO,
1 LWRD(99), NBIT(99), LBIT(99),
2 VMIN(99), CODE(99), ROND(99),
3 VMAX(99), MAXV(99), RDAT(99),
4 IDAT(99)
C
COMMON / USR / LOCDAT(40), NDAT
C
C=======================================================================
C
RETURN
END

You might also like