@@ -373,13 +373,13 @@ subroutine test_q_mb01(error)
373373 type (error_type), allocatable , intent (out ) :: error
374374
375375 type (structure_type) :: mol
376- real (wp), parameter :: ref(16 ) = &
377- &[ 7.73347900345264E -1_wp , 1.07626888948184E -1_wp ,- 3.66999593831011E -1_wp , &
378- & 4.92833325937898E -2_wp ,- 1.83332156197733E -1_wp , 2.33302086605469E -1_wp , &
379- & 6.61837152062313E -2_wp ,- 5.43944165050002E -1_wp ,- 2.70264356583716E -1_wp , &
380- & 2.66618968841682E -1_wp , 2.62725033202480E -1_wp ,- 7.15315510172569E -2_wp , &
381- & - 3.73300777019193E -1_wp , 3.84585237785616E -2_wp ,- 5.05851088366941E -1_wp , &
382- & 5.17677238544190E -1_wp ]
376+ real (wp), parameter :: ref(16 ) = [ &
377+ & 7.73347759615437E -1_wp , 1.07626897257271E -1_wp ,- 3.66999554268267E -1_wp , &
378+ & 4.92833775451616E -2_wp ,- 1.83332153007808E -1_wp , 2.33302084420314E -1_wp , &
379+ & 6.61837602813735E -2_wp ,- 5.43944147972069E -1_wp ,- 2.70264297953247E -1_wp , &
380+ & 2.66618970100409E -1_wp , 2.62725030332215E -1_wp ,- 7.15315061940473E -2_wp , &
381+ &- 3.73300836681036E -1_wp , 3.84585142200261E -2_wp ,- 5.05851076468890E -1_wp , &
382+ & 5.17677178773158E -1_wp ]
383383
384384 call get_structure(mol, " MB16-43" , " 01" )
385385 call gen_test(error, mol, qref= ref)
@@ -394,13 +394,13 @@ subroutine test_q_mb02(error)
394394
395395 type (structure_type) :: mol
396396
397- real (wp), parameter :: ref(16 ) = &
398- &[ 7.38394711236237E -2_wp ,- 1.68354976558608E -1_wp ,- 3.47642833746823E -1_wp , &
399- & - 7.05489267186003E -1_wp , 7.73548301641266E -1_wp , 2.30207581365386E -1_wp , &
400- & 1.02748501676354E -1_wp , 9.47818107467041E -2_wp , 2.44260351729181E -2_wp , &
401- & 2.34984927037408E -1_wp ,- 3.17839896393030E -1_wp , 6.67112994818879E -1_wp , &
402- & - 4.78119977010489E -1_wp , 6.57536027459279E -2_wp , 1.08259054549882E -1_wp , &
403- & - 3.58215329983396E -1_wp ]
397+ real (wp), parameter :: ref(16 ) = [ &
398+ & 7.38394752482521E -2_wp ,- 1.68354859084778E -1_wp ,- 3.47642846358022E -1_wp , &
399+ &- 7.05489251302223E -1_wp , 7.73548241620680E -1_wp , 2.30207580650128E -1_wp , &
400+ & 1.02748505731185E -1_wp , 9.47818154871089E -2_wp , 2.44259536057649E -2_wp , &
401+ & 2.34984928231320E -1_wp ,- 3.17839956573785E -1_wp , 6.67112952465234E -1_wp , &
402+ &- 4.78119957747208E -1_wp , 6.57536208287042E -2_wp , 1.08259091466373E -1_wp , &
403+ &- 3.58215294268738E -1_wp ]
404404
405405 call get_structure(mol, " MB16-43" , " 02" )
406406 call gen_test(error, mol, qref= ref)
@@ -414,13 +414,13 @@ subroutine test_e_mb03(error)
414414 type (error_type), allocatable , intent (out ) :: error
415415
416416 type (structure_type) :: mol
417- real (wp), parameter :: ref(16 ) = &
418- &[ - 1.13826381452353E -1_wp ,- 5.62509093753757E -1_wp , 2.40314612017535E -2_wp , &
419- & 2.34612404176049E -1_wp , 3.24513140675984E -1_wp , 4.02366546606962E -2_wp , &
420- & - 2.17529354309074E -1_wp , 2.75364780143586E -2_wp , 4.02137437159417E -2_wp , &
421- & 5.04840431402129E -2_wp ,- 3.53634596002012E -1_wp ,- 1.87985781866652E -1_wp , &
422- & - 2.52739878326955E -1_wp , 1.24520644464529E -1_wp , 2.69468100612926E -1_wp , &
423- & 2.15919302769455E -2_wp ]
417+ real (wp), parameter :: ref(16 ) = [ &
418+ &- 1.13826350631987E -1_wp ,- 5.62509056571450E -1_wp , 2.40314584307323E -2_wp , &
419+ & 2.34612384482528E -1_wp , 3.24513111881020E -1_wp , 4.02366323905675E -2_wp , &
420+ &- 2.17529318207133E -1_wp , 2.75364844977006E -2_wp , 4.02137369467059E -2_wp , &
421+ & 5.04840322940993E -2_wp ,- 3.53634572772168E -1_wp ,- 1.87985748794416E -1_wp , &
422+ &- 2.52739835528964E -1_wp , 1.24520645208966E -1_wp , 2.69468093358888E -1_wp , &
423+ & 2.15919407508634E -2_wp ]
424424
425425 call get_structure(mol, " MB16-43" , " 03" )
426426 call gen_test(error, mol, eref= ref)
@@ -434,13 +434,13 @@ subroutine test_e_mb04(error)
434434 type (error_type), allocatable , intent (out ) :: error
435435
436436 type (structure_type) :: mol
437- real (wp), parameter :: ref(16 ) = &
438- &[ 5.48650310058159E -2_wp ,- 2.25780895465614E -1_wp , 4.35281555165058E -2_wp , &
439- & - 1.57205784670962E -1_wp , 4.09838051265821E -3_wp , 6.31282510503942E -2_wp , &
440- & 7.48306240708851E -2_wp , 5.87730318612068E -2_wp , 6.10308471954074E -2_wp , &
441- & 8.63933900356271E -2_wp ,- 9.99483735030189E -2_wp , 2.02497866273279E -1_wp , &
442- & 3.47529219386489E -2_wp ,- 2.37058815227503E -1_wp , 6.74225110397230E -2_wp , &
443- & - 1.36552336490113E -1_wp ]
437+ real (wp), parameter :: ref(16 ) = [ &
438+ & 5.48650497749607E -2_wp ,- 2.25780913208624E -1_wp , 4.35281631902307E -2_wp , &
439+ &- 1.57205780814366E -1_wp , 4.09837366864403E -3_wp , 6.31282692438352E -2_wp , &
440+ & 7.48306233723622E -2_wp , 5.87730150647742E -2_wp , 6.10308494414398E -2_wp , &
441+ & 8.63933930367129E -2_wp ,- 9.99483536957020E -2_wp , 2.02497843626054E -1_wp , &
442+ & 3.47529062386466E -2_wp ,- 2.37058804560779E -1_wp , 6.74225102943070E -2_wp , &
443+ &- 1.36552339896561E -1_wp ]
444444
445445 call get_structure(mol, " MB16-43" , " 04" )
446446 call gen_test(error, mol, eref= ref)
0 commit comments