WRITE (NW,602) ( (AT(I,J),J=1,3) ,I=1,3) 602 FORMAT (/,' THE PROJECTION MATRIX ',3(/,1X,3E12.5)) C C THE COORDINATES OF G IN THE NEW COORDINATES C SCALER=CL*BASEL/BIGK WRITE (NW,605) SCALER 605 FORMAT(/,' THE PROJECTED LENGTH OF BASE VECTOR GX ',E12.5,' MM') DO I=2,NBEAMS GGX(1)=HKL(1,I) GGX(2)=HKL(2,I) GGX(3)=HKL(3,I) CALL TRANS(AT,GGX,GHX) XJ(I)=GHX(1)*SCALER YJ(I)=GHX(2)*SCALER END DO C C SETUP THE BOUNDARY C CALL TRANS(AT,TILT,GHX) XC=GHX(1)*SCALER YC=GHX(2)*SCALER WRITE (NW,610) XC,YC 610 FORMAT (/,' THE CENTER OF THE LAUE CIRCLE ',2E12.5) C C DISPLAY WINDOW SIZE 150mmX150mm C IF (CENTER(1:3).EQ.'YES') THEN XMN=-75.0+XC XMX=75.0+XC
WRITE (NW,602) ( (AT(I,J),J=1,3) ,I=1,3) 602 FORMAT (/,' THE PROJECTION MATRIX ',3(/,1X,3E12.5)) C C THE COORDINATES OF G IN THE NEW COORDINATES C SCALER=CL*BASEL/BIGK WRITE (NW,605) SCALER 605 FORMAT(/,' THE PROJECTED LENGTH OF BASE VECTOR GX ',E12.5,' MM') DO I=2,NBEAMS GGX(1)=HKL(1,I) GGX(2)=HKL(2,I) GGX(3)=HKL(3,I) CALL TRANS(AT,GGX,GHX) XJ(I)=GHX(1)*SCALER YJ(I)=GHX(2)*SCALER END DO C C SETUP THE BOUNDARY C CALL TRANS(AT,TILT,GHX) XC=GHX(1)*SCALER YC=GHX(2)*SCALER WRITE (NW,610) XC,YC 610 FORMAT (/,' THE CENTER OF THE LAUE CIRCLE ',2E12.5) C C DISPLAY WINDOW SIZE 150mmX150mm C IF (CENTER(1:3).EQ.'YES') THEN XMN=-75.0+XC XMX=75.0+XC
PlottingHOLZlines.docx