PENFCT.f90#41
      REAL BVZI2
#54
         BVZI2 = G/PTATZI*VPTGZI                                        !   1454
#57
         PSUBS = FB/(UP*BVZI2*(ZI-HSP)*(ZI-HSP)*(ZI-HSP))

HyperKWIC - Version 1.00DD executed at 20:00 on  1 Mar 2018  | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use