The Fortran Source Code for OPO Threshold and Efficiency

D.1      OPO.f

The Fortran code OPO.f used to calculate the function ɡmm is presented below. For a given value of the ξρ, the confocal parameter of the pump beam, the program maximizes the function h with respect to the confocal parameter of the signal beam ξs and the phase mismatch parameter σ. The ranges of ξp and σ over which the maximum of h occurs are set by trial and error.

c OPO.f

 implicit real*8 (a-h,o-z)

 real*8 kappa2,k2,mu

 CHARACTER*20 fileout

 common/list1/ kappa2,alpp,alpi,alps,cp,cs,etas,del

 common/list2/ cp0,cpf,cs0,csf,sig0,sigf

 common/list3/ mcp,mcs,msig

del = 1.1

write(6,*)’enter kappa2’


write(6,*)’enter cp0,cpf,mcp’


write(6,*)’enter ...

Get Laser Beam Propagation in Nonlinear Optical Media now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.