From c0cbc00aabcf10110f8da2086883d133bbdc3aa5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Simon=20St=C3=A4hler?= Date: Wed, 18 Mar 2015 17:40:29 +0100 Subject: [PATCH] the model parameter names should be parameters - no reason to make them writable --- background_model.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/background_model.f90 b/background_model.f90 index c7c1a10..3ba241e 100644 --- a/background_model.f90 +++ b/background_model.f90 @@ -7,7 +7,7 @@ module backgroundmodel integer, parameter :: nmodel_parameters = 12 !< Number of basic model parameters !! which are availabe in backgroundmodel_type - character(len=3) :: parameter_name(nmodel_parameters) = & + character(len=3), parameter :: parameter_name(nmodel_parameters) = & ['vp ', 'vs ', 'rho', 'vph', 'vpv', 'vsh', & 'vsv', 'eta', 'phi', 'xi ', 'lam', 'mu ']