1 ! { dg-options "-O2 " }
3 program superficie_proteina
4 integer, parameter :: LONGreal
= selected_real_kind(12,90)
5 integer :: number_of_polypeptides
, maximum_polypeptide_length
6 real (kind
= LONGreal
), dimension (:,:), allocatable
:: individual_conformations
7 allocate (individual_conformations(-number_of_bins
:0,number_of_polypeptides
))
8 individual_conformations
= 0.0_LONGreal
9 end program superficie_proteina