module calibration
character(120)::calNamea,calNameb
type ccT ! calibration constants
real(8)::f !/* [mm] */
real(8):: kappa1 !/* [1/mm^2] */
real(8):: p1 !/* [1/mm] */
real(8):: p2 !/* [1/mm] */
real(8):: Tx !/* [mm] */
real(8):: Ty !/* [mm] */
real(8):: Tz !/* [mm] */
real(8):: Rx !/* [rad] */
real(8):: Ry !/* [rad] */
real(8):: Rz !/* [rad] */
real(8):: r1 !/* [] */
real(8):: r2 !/* [] */
real(8):: r3 !/* [] */
real(8):: r4 !/* [] */
real(8):: r5 !/* [] */
real(8):: r6 !/* [] */
real(8):: r7 !/* [] */
real(8):: r8 !/* [] */
real(8):: r9 !/* [] */
end type ccT
type cpT ! camera parameters
real(8):: Ncx !/* [sel] Number of sensor elements in camera's x direction */
real(8):: Nfx !/* [pix] Number of pixels in frame grabber's x direction */
real(8):: Nfy !/* [pix] Number of pixels in frame grabber's x direction */
real(8):: dx !/* [mm/sel] X dimension of camera's sensor element (in mm) */
real(8):: dy !/* [mm/sel] Y dimension of camera's sensor element (in mm) */
real(8):: dpx !/* [mm/pix] Effective X dimension of pixel in frame grabber */
real(8):: dpy !/* [mm/pix] Effective Y dimension of pixel in frame grabber */
real(8):: Cx !/* [pix] Z axis intercept of camera coordinate system */
real(8):: Cy !/* [pix] Z axis intercept of camera coordinate system */
real(8):: sx !/* [] Scale factor to compensate for any error in dpx */
end type cpT
type(ccT)::cca,ccb
type(cpT)::cpa,cpb
end module calibration