using Fortran free format for Abaqus user subroutines

[Carlygao]

Hi,

I have a problem to link Abaqus 2020, VS2019 and Fortran compiler 2021.6. I got the following errors after running “Abaqus verify -user_std” in std_user.log. It seems it complains the free format. I deleted ‘/iface:cref’ from compile_fortran in win86_64.env, and added “compile_fortran += ['/names:lowercase',]” in abaqus_v6.env. Then I can pass the verification. However, I can’t add ‘/free’ into compile_fortran list in abaqus_v6.env, because it gave me the following errors again.

Analysis initiated from SIMULIA established products
Abaqus JOB std_user
Abaqus 2020
Abaqus License Manager checked out the following licenses:
Abaqus/Standard checked out 5 tokens from Flexnet server abaquswapp01.uta.edu.
<119 out of 140 licenses remain available>.
Begin Compiling Abaqus/Standard User Subroutines
10/17/2022 7:24:29 PM
Intel(R) Fortran Intel(R) 64 Compiler Classic for applications running on Intel(R) 64, Version 2021.6.0 Build 20220226_000000
Copyright (C) 1985-2022 Intel Corporation. All rights reserved.

std_user.for(2): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( : % [ . = =>
C
-^
std_user.for(4): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( : % [ . = =>
C
-^us
std_user.for(6): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( : % [ . = =>
C
-^
std_user.for(7): error #5082: Syntax error, found IDENTIFIER 'THE' when expecting one of: ( : % [ . = =>
C THE PRIMARY FUNCTION IS F(T)=1.5 SIN(OMEGA T) + .5 COS(OMEGA T)
--^
std_user.for(8): error #5082: Syntax error, found IDENTIFIER 'WHERE' when expecting one of: ( : % [ . = =>
C WHERE OMEGA IS .1 PI AND T THE CURRENT TIME.
--^
std_user.for(9): error #5082: Syntax error, found IDENTIFIER 'THE' when expecting one of: ( : % [ . = =>
C THE APPROPRIATE INTEGRALS AND DERIVATIVES ARE COMPUTED ACCORDINGLY.
--^
std_user.for(10): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( : % [ . = =>
C
-^
std_user.for(18): error #5082: Syntax error, found IDENTIFIER 'THE' when expecting one of: ( : % [ . = =>
C THE FUNCTION IS DISPLACEMENT FOR NODE 2
---------^
std_user.for(19): error #5082: Syntax error, found IDENTIFIER 'FOR' when expecting one of: :: ) ( , : * <END-OF-STATEMENT> ; . % (/ + - [ ] /) . ** / // ...
C (DIFFERENTIATE FOR VEL AND ACC)
------------------------^
std_user.for(24): error #5082: Syntax error, found IDENTIFIER 'THE' when expecting one of: ( : % [ . = =>
C THE FUNCTION IS VELOCITY FOR NODE 3 (INTEGRATE FOR DISP,
---------^
std_user.for(25): error #5276: Unbalanced parentheses
C DIFFERENTIATE FOR ACCELERATION)
---------------------------------------^
std_user.for(25): error #5082: Syntax error, found IDENTIFIER 'DIFFERENTIATE' when expecting one of: ( : % [ . = =>
C DIFFERENTIATE FOR ACCELERATION)
---------^
std_user.for(30): error #5082: Syntax error, found IDENTIFIER 'THE' when expecting one of: ( : % [ . = =>
C THE FUNCTION IS ACCELERATION FOR NODE 4
---------^
std_user.for(31): error #5082: Syntax error, found IDENTIFIER 'FOR' when expecting one of: :: ) ( , : * <END-OF-STATEMENT> ; . % (/ + - [ ] /) . ** / // ...
C (INTEGRATE FOR DISP AND VELOCITY)
--------------------^
std_user.for(2): error #6218: This statement is positioned incorrectly and/or has syntax errors.
C
^
std_user.for(4): error #6218: This statement is positioned incorrectly and/or has syntax errors.
C
^
std_user.for(10): error #6218: This statement is positioned incorrectly and/or has syntax errors.
C
^
compilation aborted for std_user.for (code 1)
Abaqus Error: Problem during compilation - std_user.for
Abaqus/Analysis exited with errors