Commit 812f9f81 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

added external declarations to make ifort happy

parent 890146c9

sources/Makefile

+1 −0
Original line number Diff line number Diff line
@@ -51,6 +51,7 @@ endif 
FSOURCES2=\

	drspine_parameters.f90 \

	constants_module.f90   \

	external_module.f90 \

	strings_module.f90  \

	regex_module.f90  \

	logger.f90        \

sources/Makefile.depend

+6 −5
Original line number Diff line number Diff line 
# Makefile.depend Thu Aug 12 17:59:43 EDT 2021

# Makefile.depend Wed 08 Sep 2021 04:40:10 PM EDT

drspine_version.o : drspine_version.F90 drspine_parameters.o 

os_utils.o : os_utils.F90 strings_module.o drspine_parameters.o 

new_com.o : new_com.F90 os_utils.o 

drspine_parameters.o : drspine_parameters.f90 

constants_module.o : constants_module.f90 drspine_parameters.o 

external_module.o : external_module.f90 

strings_module.o : strings_module.f90 

regex_module.o : regex_module.f90 

logger.o : logger.f90 new_com.o 

getopt_m.o : getopt_m.f90 

mathutil.o : mathutil.f90 drspine_parameters.o 

statutil.o : statutil.f90 

minimization.o : minimization.f90 logger.o drspine_parameters.o 

minimization.o : minimization.f90 external_module.o logger.o drspine_parameters.o 

minpack.o : minpack.f90 

slatec.o : slatec.f90 

polynom.o : polynom.f90 

polynom.o : polynom.f90 external_module.o 

binning.o : binning.f90 logger.o mathutil.o drspine_parameters.o 

base_types.o : base_types.f90 logger.o strings_module.o drspine_parameters.o 

geometry_types.o : geometry_types.f90 base_types.o drspine_parameters.o 

data_types.o : data_types.f90 logger.o binning.o geometry_types.o base_types.o constants_module.o drspine_parameters.o 

data_types.o : data_types.f90 external_module.o logger.o binning.o geometry_types.o base_types.o constants_module.o drspine_parameters.o 

results_types.o : results_types.f90 data_types.o 

matching.o : matching.f90 geometry_types.o base_types.o data_types.o constants_module.o drspine_parameters.o 

data_manager.o : data_manager.f90 logger.o data_types.o
@@ -26,7 +27,7 @@ file_utils.o : file_utils.f90 strings_module.o drspine_parameters.o 
read_utils.o : read_utils.f90 base_types.o logger.o strings_module.o drspine_parameters.o 

texology.o : texology.f90 os_utils.o read_utils.o 

dump_data.o : dump_data.f90 file_utils.o logger.o echo_shapes.o geometry_types.o data_types.o constants_module.o drspine_version.o drspine_parameters.o 

write_utils.o : write_utils.f90 strings_module.o constants_module.o data_types.o drspine_parameters.o 

write_utils.o : write_utils.f90 external_module.o strings_module.o constants_module.o data_types.o drspine_parameters.o 

fit_utils.o : fit_utils.f90 echo_shapes.o polynom.o logger.o data_types.o drspine_parameters.o 

read_data.o : read_data.f90 binning.o logger.o file_utils.o read_utils.o instrument_config.o geometry_types.o data_types.o base_types.o constants_module.o 

fit_data.o : fit_data.f90 logger.o mathutil.o fit_utils.o dump_data.o echo_shapes.o data_types.o constants_module.o

sources/data_types.f90

+2 −1
Original line number Diff line number Diff line
@@ -11,6 +11,7 @@ module data_types 
  use geometry_types

  use binning

  use logger

  use external_module

  implicit none



  ! ---------------------------------------------------------------------------
@@ -1669,7 +1670,7 @@ dotau: do it=it1,it2 
               dq_var = 0.0_DBL

            end if



            write(iok,'("tau/ns ",e12.6," var ",e12.6,"    Q/A**-1 ",e12.6," var ",e12.6 , i8)') &

            write(iok,'("tau/ns ",e13.6," var ",e13.6,"    Q/A**-1 ",e13.6," var ",e13.6 , i8)') &

                 ci%fqt_tau/NS, sqrt(dtau_var)/NS,               &

                 ci%fqt_q*ANGSTROEM,   sqrt(dq_var)*ANGSTROEM, ci%update_counter

            write(cmsg,'(6e15.7,i8)')  ci%fqt_tau/NS, ci%fqt_tau_var, ci%fqt_tau**2,           &

sources/external_module.f90

0 → 100644
+11 −0
Original line number Diff line number Diff line 
!> list of all external subroutines

!! to silence ifort warnings (modern Fortran)



module external_module

    implicit none



    external :: dpsort, dgeco, dgesl

    external :: lmdif, fdjac2





end module external_module

sources/gr_interface.f90

+14 −0
Original line number Diff line number Diff line
@@ -326,6 +326,20 @@ implicit none 
   integer, private             :: next_color_index =  PRIVATE_COLOR_INDEX_START 

   integer, parameter           :: MAX_COLOR_INDEX  = 1000



   ! list of external gr_ procedures used

   external :: gr_opengks, gr_closegks

   external :: gr_openws, gr_updatews, gr_deactivatews, gr_closews

   external :: gr_setwsviewport, gr_activatews, gr_setviewport

   external :: gr_settextcolorind, gr_settextalign, gr_settextpath, gr_settextfontprec

   external :: gr_setcharheight, gr_setcharup

   external :: gr_setlinewidth, gr_setlinecolorind, gr_setlinetype

   external :: gr_polyline, gr_setwindow, gr_polymarker

   external :: gr_setmarkersize, gr_setmarkertype, gr_setmarkercolorind

   external :: gr_setcolorrep, gr_verrorbars, gr_herrorbars, gr_axes, gr_setscale

   external :: gr_textext, gr_setspace

   external :: gr_selntran, gr_setfillintstyle, gr_inqscale

   external :: gr_inqwindow, gr_fillarea, gr_setfillcolorind



CONTAINS                                                                       



  !> function that gives color code for the pixel status