• R/O
  • HTTP
  • SSH
  • HTTPS

pwdft: Commit

Source code and sample for Educational-PWDFT


Commit MetaInfo

Revision4b085a478abc3f4880b8516da98da9d78179ccb6 (tree)
Zeit2018-12-20 15:00:33
Autormitsuaki1987 <kawamitsuaki@gmai...>
Commitermitsuaki1987

Log Message

MIT/X Consortium License

Ändern Zusammenfassung

Diff

--- a/src/atm_spec.F90
+++ b/src/atm_spec.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module atm_spec
224 !
325 implicit none
--- a/src/constant.F90
+++ b/src/constant.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module constant
224 !
325 real(8),parameter :: pi = acos(-1.0d0)
--- a/src/diag_direct.F90
+++ b/src/diag_direct.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module diag_direct
224 !
325 implicit none
--- a/src/energy.F90
+++ b/src/energy.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module energy
224 !
325 implicit none
--- a/src/fftw_wrapper.F90
+++ b/src/fftw_wrapper.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module fftw_wrapper
224 !
325 use, intrinsic :: iso_c_binding
--- a/src/griddata.F90
+++ b/src/griddata.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module griddata
224 !
325 implicit none
--- a/src/gvec.F90
+++ b/src/gvec.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module gvec
224 !
325 implicit none
--- a/src/hamiltonian.F90
+++ b/src/hamiltonian.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module hamiltonian
224 !
325 implicit none
--- a/src/k_point.F90
+++ b/src/k_point.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module k_point
224 !
325 implicit none
--- a/src/kohn_sham.F90
+++ b/src/kohn_sham.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module kohn_sham
224 !
325 implicit none
--- a/src/lobpcg.F90
+++ b/src/lobpcg.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module lobpcg
224 !
325 implicit none
--- a/src/plot.F90
+++ b/src/plot.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module plot
224 !
325 implicit none
--- a/src/pp.F90
+++ b/src/pp.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module pp
224 !
325 implicit none
--- a/src/pwdft.F90
+++ b/src/pwdft.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 !>
224 !! @mainpage
325 !!
--- a/src/rho_v.F90
+++ b/src/rho_v.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module rho_v
224 !
325 implicit none
--- a/src/scf.F90
+++ b/src/scf.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module scf
224 !
325 implicit none
--- a/src/stdin.F90
+++ b/src/stdin.F90
@@ -1,3 +1,25 @@
1+!
2+! Copyright (c) 2018 Mitsuaki Kawamura
3+!
4+! Permission is hereby granted, free of charge, to any person obtaining a
5+! copy of this software and associated documentation files (the
6+! "Software"), to deal in the Software without restriction, including
7+! without limitation the rights to use, copy, modify, merge, publish,
8+! distribute, sublicense, and/or sell copies of the Software, and to
9+! permit persons to whom the Software is furnished to do so, subject to
10+! the following conditions:
11+!
12+! The above copyright notice and this permission notice shall be included
13+! in all copies or substantial portions of the Software.
14+!
15+! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
16+! OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
17+! MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
18+! IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
19+! CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
20+! TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
21+! SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
22+!
123 module stdin
224 !
325 implicit none
Show on old repository browser