The Fortran Source Code for QPM-SHG Efficiency
The Fortran code qpmshg.f finds the function hs for the quasi-phase matched second harmonic generation case, as a function of the parameter δ1, for given values of the pump focusing parameter ξp and the normalized pump power denoted by K2. The input parameters are read from a text file (qpmshg_in.txt) and the output is written to another file, the name of which is specified in a text file (qpmshg_fileout.txt). The three files qpmshg.f, qpmshg_in.txt and qpmshg_fileout.txt need to stay in the same folder when qpmshg.f is compiled and run.
implicit real*8 (a-h,o-z)