Renamed from .f03 to .f90 to facilitate use (from Beliavsky recommend…

…ation in ffadrique/XFunit)

FTL.vfproj

@@ -48,12 +48,12 @@
  <File RelativePath=".\src\makefile.deps"/>
  <File RelativePath=".\README.md"/></Filter>
  <Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl">
- <File RelativePath=".\src\list.f03"/>
- <File RelativePath=".\src\m_object.f03"/>
- <File RelativePath=".\src\queue.f03"/>
- <File RelativePath=".\src\slist.f03"/>
- <File RelativePath=".\src\stack.f03"/>
- <File RelativePath=".\src\tree.f03"/>
- <File RelativePath=".\src\Use.f03"/>
- <File RelativePath=".\src\vector.f03"/></Filter></Files>
+ <File RelativePath=".\src\list.f90"/>
+ <File RelativePath=".\src\m_object.f90"/>
+ <File RelativePath=".\src\queue.f90"/>
+ <File RelativePath=".\src\slist.f90"/>
+ <File RelativePath=".\src\stack.f90"/>
+ <File RelativePath=".\src\tree.f90"/>
+ <File RelativePath=".\src\Use.f90"/>
+ <File RelativePath=".\src\vector.f90"/></Filter></Files>
  <Globals/></VisualStudioProject>

fxx/container.py

@@ -9,7 +9,7 @@ class Container(object):
  names = ['list', 'slist', 'vector', 'queue', 'stack', 'tree']
 
  # Template default extension
- templates_extension = '.f03'
+ templates_extension = '.f90'
 
  # Default consturctor
  def __init__(self):
@@ -90,4 +90,4 @@ def is_in_array(self, array):
  if res: break
 
  # Return match status
- return res
+ return res

fxx/fxx-container-only.pyproj

@@ -33,7 +33,7 @@
  <Folder Include="utest\" />
  </ItemGroup>
  <ItemGroup>
- <Content Include="utest\m_eop_queue_ftl.f03" />
+ <Content Include="utest\m_eop_queue_ftl.f90" />
  </ItemGroup>
  <Import Project="$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\Python Tools\Microsoft.PythonTools.targets" />
-</Project>
+</Project>

fxx/fxx.pyproj

@@ -32,10 +32,10 @@
  <Folder Include="utest\" />
  </ItemGroup>
  <ItemGroup>
- <Content Include="utest\m_eop_list.f03" />
+ <Content Include="utest\m_eop_list.f90" />
  <Content Include="utest\m_eop_list.t03" />
- <Content Include="utest\m_eop_vector_ftl.f03" />
- <Content Include="utest\m_leap_list_ftl.f03" />
+ <Content Include="utest\m_eop_vector_ftl.f90" />
+ <Content Include="utest\m_leap_list_ftl.f90" />
  </ItemGroup>
  <Import Project="$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\Python Tools\Microsoft.PythonTools.targets" />
-</Project>
+</Project>

fxx/utest/m_eop_list.f03 → fxx/utest/m_eop_list.f90

@@ -1,48 +1,49 @@
-module m_eop_list
-
-! Use statements
- use m_eop_vector_ftl
- use m_leap_list_ftl
-
-
-! Container object declarations
- type(t_eop_vector_ftl) :: eop_object
- type(t_leap_list_ftl) :: leap_object
-
-! Contained object declarations wit the intent attribute
- class(t_eop_vector_ftl), pointer, intent(in) :: eop_object
- class(t_leap_list_ftl), allocatable, dimension(:), intent(out) :: leap_object
-
-
-! Iterator decalrations
- type(t_eop_vector_ftl_iterator) :: eop_object
- type(t_leap_list_ftl_iterator) :: leap_object
-
-
-! Inheritance of a container
- type, extends(eop_vector_ftl) :: t_eop_list
- type, extends(leap_list_ftl), abstract :: t_leap_list
-
-
-! Type selection (class or type)
- select type( x )
- type is(t_eop_vector_ftl)
-
- class is(t_leap_list_ftl)
-
- end select
-
-
-! Reference to the parent in a type derived by inheritance
- x = object%t_eop_vector_ftl%get_param()
- y = object%t_leap_list_ftl%get_param()
-
-
-! Constructor
- x = eop_vector_ftl()
- y = leap_list_ftl( a, b )
-
-
-end module m_eop_list
-
-! 2022-02-01T00:46:47
+module m_eop_list
+
+! Use statements
+ use m_eop_vector_ftl
+ use m_leap_list_ftl
+
+
+! Container object declarations
+ type(t_eop_vector_ftl) :: eop_object
+ type(t_leap_list_ftl) :: leap_object
+
+
+! Contained object declarations wit the intent attribute
+ class(t_eop_vector_ftl), pointer, intent(in) :: eop_object
+ class(t_leap_list_ftl), allocatable, dimension(:), intent(out) :: leap_object
+
+
+! Iterator declarations
+ type(t_eop_vector_ftl_iterator) :: eop_object
+ type(t_leap_list_ftl_iterator) :: leap_object
+
+
+! Inheritance of a container
+ type, extends(t_eop_vector_ftl) :: t_eop_list
+ type, extends(t_leap_list_ftl), abstract :: t_leap_list
+
+
+! Type selection (class or type)
+ select type( x )
+ type is(t_eop_vector_ftl)
+
+ class is(t_leap_list_ftl)
+
+ end select
+
+
+! Reference to the parent in a type derived by inheritance
+ x = object%t_eop_vector_ftl%get_param()
+ y = object%t_leap_list_ftl%get_param()
+
+
+! Constructor
+ x = eop_vector_ftl()
+ y = leap_list_ftl( a, b )
+
+
+end module m_eop_list
+
+! 2022-02-05T22:12:26