C..   VFORM.FTN   BOHDEN K. CMAYLO   MAY 81
C..
C..  CREATES VARIABLE FORMAT SPEC FROM DATA
C..
	SUBROUTINE VFORM(ITYPE,NUMBER,FORMA,NFORMA)
	DIMENSION FORMA(9),ITYPES(2),IBASE(2)
C..
C..	TYPES OF DATA
C..
	DATA NTYPES,ITYPES/2,'O','I'/
	DATA IBASE/8,10/
C..
C..	GET BASE
C..
	DO 1 I=1,NTYPES
	IF(ITYPE.EQ.ITYPES(I)) GO TO 2
1	CONTINUE
	TYPE 3,ITYPE,FORMA
3	FORMAT('0*** ERROR VFORM *** TYPE=',A1,'  FORMAT=',9A4)
C..
C..	FIGURE OUT NUMBER OF CHARACTERS
C..
2	NCHAR=0
	NUMB=NUMBER
	NBASE=IBASE(I)
	IF(NUMB.LT.0) NUMB=-NUMB*NBASE
	DO 4 I=1,9
	NCHAR=NCHAR+1
	NUMB=NUMB/NBASE
	IF(NUMB.LE.0) GO TO 5
4	CONTINUE
5	ENCODE(2,6,FORMA(NFORMA))ITYPE,NCHAR
6	FORMAT(A1,I1)
	RETURN
	END