 Potential v1.1
    
 By S.D.Pain 6/29/2023

 This code extracts an adiabatic potential from a 
 twofnr tran.X file generated by front, and
 writes fort.4 file for fresco input for ADWA calcultions. 

An executable, precompiled on 64-bit WSL is included.

To compile:
> gfortran potential.f -o potential 


To run:
> ./potential

then enter your tran.X filename





A few notes/recommendations on running front for generating an adiabatic potential for ADWA:

- This has been tested using front20 (though I think it should
  be fine for almost any version).

- Either generate a Johnson Tandy potential (which incorporates the 
  finite range of the deuteron), or Johnson Soper (zero range for the deuteron)

- Build the adiabatic and target-nucleon potentials using Koning Delaroche

- Use the AV-18 deuteron potential for the p-d vertex

- In front, always select zero range for anything whenever asked.
  Do not include nonlocalities or use LEA


When running fresco, if you set kind=5 in the Coupling partition, it will perform a zero-range calculation, which you can cross-check against a twofnr zero-range calculation.
To do this, ensure you've used the same D0 constant in both cases.
If things agree, change to kind=7 in fresco to run a finite-range calculation.


