Changeset 3045 for palm/trunk/SOURCE/fft_xy_mod.f90
- Timestamp:
- May 28, 2018 7:55:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/fft_xy_mod.f90
r2718 r3045 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Error messages revised 28 ! 29 ! 2718 2018-01-02 08:49:38Z maronga 27 30 ! Corrected "Former revisions" section 28 31 ! … … 723 726 ENDIF 724 727 725 #else 726 message_string = 'no system-specific fft-call available' 727 CALL message( 'fft_x', 'PA0188', 1, 2, 0, 6, 0 ) 728 #endif 729 730 ELSE 731 732 message_string = 'fft method "' // TRIM( fft_method) // & 733 '" not available' 734 CALL message( 'fft_x', 'PA0189', 1, 2, 0, 6, 0 ) 728 #endif 735 729 736 730 ENDIF … … 945 939 946 940 ENDIF 947 #else 948 message_string = 'no system-specific fft-call available' 949 CALL message( 'fft_x_1d', 'PA0188', 1, 2, 0, 6, 0 ) 950 #endif 951 ELSE 952 message_string = 'fft method "' // TRIM( fft_method) // & 953 '" not available' 954 CALL message( 'fft_x_1d', 'PA0189', 1, 2, 0, 6, 0 ) 941 #endif 955 942 956 943 ENDIF … … 1288 1275 1289 1276 ENDIF 1290 #else 1291 message_string = 'no system-specific fft-call available' 1292 CALL message( 'fft_y', 'PA0188', 1, 2, 0, 6, 0 ) 1293 #endif 1294 1295 ELSE 1296 1297 message_string = 'fft method "' // TRIM( fft_method) // & 1298 '" not available' 1299 CALL message( 'fft_y', 'PA0189', 1, 2, 0, 6, 0 ) 1277 #endif 1300 1278 1301 1279 ENDIF … … 1512 1490 1513 1491 ENDIF 1514 #else 1515 message_string = 'no system-specific fft-call available' 1516 CALL message( 'fft_y_1d', 'PA0188', 1, 2, 0, 6, 0 ) 1517 1518 #endif 1519 1520 ELSE 1521 1522 message_string = 'fft method "' // TRIM( fft_method) // & 1523 '" not available' 1524 CALL message( 'fft_y_1d', 'PA0189', 1, 2, 0, 6, 0 ) 1492 #endif 1525 1493 1526 1494 ENDIF … … 1653 1621 1654 1622 DEALLOCATE( work ) 1655 #else 1656 message_string = 'no system-specific fft-call available' 1657 CALL message( 'fft_x_m', 'PA0188', 1, 2, 0, 6, 0 ) 1658 #endif 1659 1660 ELSE 1661 1662 message_string = 'fft method "' // TRIM( fft_method) // & 1663 '" not available' 1664 CALL message( 'fft_x_m', 'PA0189', 1, 2, 0, 6, 0 ) 1623 #endif 1665 1624 1666 1625 ENDIF … … 1795 1754 1796 1755 DEALLOCATE( work ) 1797 #else 1798 message_string = 'no system-specific fft-call available' 1799 CALL message( 'fft_y_m', 'PA0188', 1, 2, 0, 6, 0 ) 1800 #endif 1801 1802 ELSE 1803 1804 message_string = 'fft method "' // TRIM( fft_method) // & 1805 '" not available' 1806 CALL message( 'fft_y_m', 'PA0189', 1, 2, 0, 6, 0 ) 1756 #endif 1807 1757 1808 1758 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.