PROGRAM justatest3
C		USE WINTERACTER
        IMPLICIT NONE
				
		INTEGER STARTPOINT,STOPPOINT, LNTYPE, ALLOERR, I
		DIMENSION STARTPOINT(:,:,:),STOPPOINT(:,:,:)
		ALLOCATABLE :: STARTPOINT,STOPPOINT
		
		WRITE(*,*) 'Okay'
		
		DEALLOCATE (STARTPOINT,STOPPOINT,STAT=ALLOERR)
		ALLOCATE (STARTPOINT(1:4,1:3,0:INT(20)),STAT=ALLOERR)
C		ALLOCATE (STOPPOINT(1:4,1:3,0:INT(20)),STAT=ALLOERR)
		
		LNTYPE=0
        I=INT(20)
        STARTPOINT(1:4,1:3,0:I)=0.0D0
C       STOPPOINT(1:4,1:3,0:I)=0.0D0
		
		END