MINICERN/mathlib/gen/j/names.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:02:51  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE NAMES(NXARG,NYARG)
  11 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  12 C   PURPOSE                                                            C
  13 C     TO DEFINE WHICH LABELS SHALL BE PRINTED AT THE AXES BY           C
  14 C     SUBSEQUENT CALLS TO THE SUBROUTINE CONT.                         C
  15 C   USAGE                                                              C
  16 C     IF YOU FOR EXAMPLE WANT THE WORD KSI TO BE PRINTED AT THE        C
  17 C     HORIZONTAL AXIS AND THE WORD ETA TO BE PRINTED AT THE VERTICAL   C
  18 C     AXIS, EXECUTE THE STATEMENT                                      C
  19 C     CALL NAMES(NXARG,NYARG)                                          C
  20 C     BEFORE THE CALL TO CONT.WHERE -                                  C
  21 C     DATA NXARG,NYARG/6HKSI   ,6HETA   /
  22 C   PARAMETERS                                                         C
  23 C     NXARG  -  THE NAME TO BE PRINTED AT THE HORIZONTAL AXIS.         C
  24 C     NYARG  -  THE NAME TO BE PRINTED AT THE VERTICAL AXIS.           C
  25 C   REMARKS                                                            C
  26 C     THE DEFAULT OPTION OF BLANK NAMES IS AUTOMATICALLY PROVIDED.     C
  27 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  28       COMMON /J509C1/XBL,YBL,XUR,YUR,NX(6),NY(6),LETT1,LETT2,LINE1,LINE2
  29 C
  30       CALL J509BD
  31       CALL UBLOW(NXARG,NX,6)
  32       CALL UBLOW(NYARG,NY,6)
  33       RETURN
  34       END