Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
CrysFML
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
4
Issues
4
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Scientific Software
CrysFML
Commits
7972789b
Commit
7972789b
authored
May 13, 2020
by
juan rodriguez-carvajal
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Changing line terminators to UNIX
parent
07542152
Pipeline
#7397
failed with stages
in 6 minutes and 53 seconds
Changes
2
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
288 additions
and
288 deletions
+288
-288
Src08/CFML_HDF5.f90
Src08/CFML_HDF5.f90
+63
-63
Src08/CFML_HDF5/Read_Nexus.f90
Src08/CFML_HDF5/Read_Nexus.f90
+225
-225
No files found.
Src08/CFML_HDF5.f90
View file @
7972789b
!!-------------------------------------------------------
!!---- Crystallographic Fortran Modules Library (CrysFML)
!!-------------------------------------------------------
!!---- The CrysFML project is distributed under LGPL. In agreement with the
!!---- Intergovernmental Convention of the ILL, this software cannot be used
!!---- in military applications.
!!----
!!---- Copyright (C) 1999-2019 Institut Laue-Langevin (ILL), Grenoble, FRANCE
!!---- Universidad de La Laguna (ULL), Tenerife, SPAIN
!!---- Laboratoire Leon Brillouin(LLB), Saclay, FRANCE
!!----
!!---- Authors: Juan Rodriguez-Carvajal (ILL)
!!---- Javier Gonzalez-Platas (ULL)
!!----
!!---- Contributors: Laurent Chapon (ILL)
!!---- Marc Janoschek (Los Alamos National Laboratory, USA)
!!---- Oksana Zaharko (Paul Scherrer Institute, Switzerland)
!!---- Tierry Roisnel (CDIFX,Rennes France)
!!---- Eric Pellegrini (ILL)
!!---- Ross Angel (University of Pavia)
!!----
!!---- This library is free software; you can redistribute it and/or
!!---- modify it under the terms of the GNU Lesser General Public
!!---- License as published by the Free Software Foundation; either
!!---- version 3.0 of the License, or (at your option) any later version.
!!----
!!---- This library is distributed in the hope that it will be useful,
!!---- but WITHOUT ANY WARRANTY; without even the implied warranty of
!!---- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
!!---- Lesser General Public License for more details.
!!----
!!---- You should have received a copy of the GNU Lesser General Public
!!---- License along with this library; if not, see <http://www.gnu.org/licenses/>.
!!----
!!----
!!---- MODULE: CFML_HDF5
!!---- Module for working with HDF5 files.
!!----
!!
Module
CFML_HDF5
!---- Use Modules ----!
use
HDF5
use
CFML_ILL_Instrm_Data
,
ONLY
:
SXtal_Numor_type
,
Initialize_Numor
,&
err_ILLData
,
err_ILLData_mess
use
CFML_String_Utilities
,
ONLY
:
l_case
implicit
none
private
public
:
Read_Nexus_D19
contains
Interface
Module
Subroutine
Read_Nexus_D19
(
filename
,
numor
,
counts
)
!---- Arguments ----!
character
(
len
=*
),
intent
(
in
)
::
filename
type
(
SXTAL_NUMOR_type
),
intent
(
out
)
::
numor
integer
,
dimension
(:,:,:),
allocatable
,
intent
(
out
)
::
counts
End
Subroutine
Read_Nexus_D19
End
Interface
!!-------------------------------------------------------
!!---- Crystallographic Fortran Modules Library (CrysFML)
!!-------------------------------------------------------
!!---- The CrysFML project is distributed under LGPL. In agreement with the
!!---- Intergovernmental Convention of the ILL, this software cannot be used
!!---- in military applications.
!!----
!!---- Copyright (C) 1999-2019 Institut Laue-Langevin (ILL), Grenoble, FRANCE
!!---- Universidad de La Laguna (ULL), Tenerife, SPAIN
!!---- Laboratoire Leon Brillouin(LLB), Saclay, FRANCE
!!----
!!---- Authors: Juan Rodriguez-Carvajal (ILL)
!!---- Javier Gonzalez-Platas (ULL)
!!----
!!---- Contributors: Laurent Chapon (ILL)
!!---- Marc Janoschek (Los Alamos National Laboratory, USA)
!!---- Oksana Zaharko (Paul Scherrer Institute, Switzerland)
!!---- Tierry Roisnel (CDIFX,Rennes France)
!!---- Eric Pellegrini (ILL)
!!---- Ross Angel (University of Pavia)
!!----
!!---- This library is free software; you can redistribute it and/or
!!---- modify it under the terms of the GNU Lesser General Public
!!---- License as published by the Free Software Foundation; either
!!---- version 3.0 of the License, or (at your option) any later version.
!!----
!!---- This library is distributed in the hope that it will be useful,
!!---- but WITHOUT ANY WARRANTY; without even the implied warranty of
!!---- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
!!---- Lesser General Public License for more details.
!!----
!!---- You should have received a copy of the GNU Lesser General Public
!!---- License along with this library; if not, see <http://www.gnu.org/licenses/>.
!!----
!!----
!!---- MODULE: CFML_HDF5
!!---- Module for working with HDF5 files.
!!----
!!
Module
CFML_HDF5
!---- Use Modules ----!
use
HDF5
use
CFML_ILL_Instrm_Data
,
ONLY
:
SXtal_Numor_type
,
Initialize_Numor
,&
err_ILLData
,
err_ILLData_mess
use
CFML_String_Utilities
,
ONLY
:
l_case
implicit
none
private
public
:
Read_Nexus_D19
contains
Interface
Module
Subroutine
Read_Nexus_D19
(
filename
,
numor
,
counts
)
!---- Arguments ----!
character
(
len
=*
),
intent
(
in
)
::
filename
type
(
SXTAL_NUMOR_type
),
intent
(
out
)
::
numor
integer
,
dimension
(:,:,:),
allocatable
,
intent
(
out
)
::
counts
End
Subroutine
Read_Nexus_D19
End
Interface
End
Module
CFML_HDF5
\ No newline at end of file
Src08/CFML_HDF5/Read_Nexus.f90
View file @
7972789b
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment