C.....DEFINE Y-GRID (EXY - Exp. factor; NJCV - Number of CV)PRINT *,' ENTER: YMIN, YMAX, EXY, NJCV '   READ(*,*) YMIN,YMAX,EXY,MNJ=M+2   NJM=NJ-1   IF(EXY.EQ.1.) THEN            DY=(YMAX-YMIN)/REAL(M)   ELSE            DY=(YMAX-YMIN)*(1.-EXY)/(1.-EXY**M)   ENDIF   Y(1)=YMIN   DO J=2,NJM            Y(J)=Y(J-1)+DY            DY=DY*EXY   END DO   Y(NJ)=Y(NJM)