Phase - Phaseshift migration (possibly split-step)
Phase par=parfile.P D=input.H R=output.H S=slow.H
Number of CMP in X (axis 1 of D,R and S)
Sampling of CMP in X
First CMP X location
Number of CMP in X (axis 2 of D,R and S)
Sampling of CMP in Y
First CMP Y location
Number of half offsets in X (axis 3 of D and possibly R )
Sampling of half offsets in X
First half offset X location
Number of half offsets in Y (axis 4 of D and possibly R)
Sampling of half offset in Y
First CMP Y location
Number of depth steps
Sampling of depths
First depth of model
Whether or not make the image real
Number of frequencies
Sampling of frequencies
First frequency of data
[.false.] whether or not S is velocity
[1] number of velocities for each depth step
[.false.] whether (.true.) or not (.false.) to create PH gathers
Number of PH in X (axis 3 of R)
Sampling of PH in X
First PH X location
Number of PH in Y (axis 4 of R)
Sampling of PH in Y
First PH Y location
[.1] Epsilon parameter for Phgather construction
Perform split step phase shift migration/modeling
seis/image