Again, thanks for your help ...
I've done a simple test, and it doesn't seem to be working
I've done this
INTEGER,PARAMETER :: dp= selected_real_kind(15,100)
REAL(dp), PARAMETER :: pi = 3.1415926535897932384626
and later display the value:
WRITE(*,"(A, F15.10)") "Pi = ", pi...