LIB: Difference between revisions

m
→‎Glue code: change X*Y*DEPTH to X*Y*NBYTE
m (link to documentation)
m (→‎Glue code: change X*Y*DEPTH to X*Y*NBYTE)
 
(One intermediate revision by the same user not shown)
Line 129: Line 129:
! or
! or
! gfortran -fpic test_generic_client.f90 -shared -o libtest_generic_client.so
! gfortran -fpic test_generic_client.f90 -shared -o libtest_generic_client.so
! (this does not include the compiler's libgfortran.so and libquadmath.so into the library; don't know how to achieve this so
! (adding -static-libgfortran and -static-libquadmath should put these into the library as well so that it can be distributed.
! gfortran is only useful if it is anyway installed on the machine)
! This requires a gfortran version higher than 12. For older gfortran versions, libgfortran.so and libquadmath.so can be
! renamed to something that the linker does not search for; it will then include libgfortran.a and libquadmath.a)
! The resulting file can be used with a LIB=./libtest_generic_client.so line in XDS.INP, and enables
! The resulting file can be used with a LIB=./libtest_generic_client.so line in XDS.INP, and enables
! reading of data files with a 7680 bytes header plus 1024*1024 pixels of integer data, without any record structure.
! reading of data files with a 7680 bytes header plus 1024*1024 pixels of integer data, without any record structure.
Line 531: Line 532:
     !  'NX' (integer)                  output  Number of pixels along X  
     !  'NX' (integer)                  output  Number of pixels along X  
     !  'NY' (integer)                  output  Number of pixels along Y
     !  'NY' (integer)                  output  Number of pixels along Y
     !  'NBYTE' (integer)              output  Number of bytes in the image... X*Y*DEPTH
     !  'NBYTE' (integer)              output  Number of bytes in the image is X*Y*NBYTE
     !  'QX' (4*REAL)                  output  Pixel size
     !  'QX' (4*REAL)                  output  Pixel size
     !  'QY' (4*REAL)                  output  Pixel size
     !  'QY' (4*REAL)                  output  Pixel size
2,657

edits