From 51036b026f4aa6ec5e3754f1e2e23aa2a6e753df Mon Sep 17 00:00:00 2001 From: Nick Gould Date: Wed, 7 Feb 2024 07:31:49 +0000 Subject: [PATCH] remove incorrect external statement in test program --- src/bgo/bgos2.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/bgo/bgos2.f90 b/src/bgo/bgos2.f90 index 2572bdbeab..9caa8aabe7 100644 --- a/src/bgo/bgos2.f90 +++ b/src/bgo/bgos2.f90 @@ -1,4 +1,4 @@ - PROGRAM GALAHAD_BGO_EXAMPLE2 ! GALAHAD 4.0 - 2022-03-07 AT 13:30 GMT + PROGRAM GALAHAD_BGO_EXAMPLE2 ! GALAHAD 4.3 - 2024-02-07 AT 07:30 GMT USE GALAHAD_BGO_double ! double precision version IMPLICIT NONE INTEGER, PARAMETER :: wp = KIND( 1.0D+0 ) ! set precision @@ -7,7 +7,6 @@ PROGRAM GALAHAD_BGO_EXAMPLE2 ! GALAHAD 4.0 - 2022-03-07 AT 13:30 GMT TYPE ( BGO_inform_type ) :: inform TYPE ( BGO_data_type ) :: data TYPE ( GALAHAD_userdata_type ) :: userdata - EXTERNAL :: FUN, GRAD, HESS, HESSPROD INTEGER :: s INTEGER, PARAMETER :: n = 3, h_ne = 5 REAL ( KIND = wp ), PARAMETER :: p = 4.0_wp